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MODULE eneneeets ZTITLE ‘RT11 file and directory routines’ 


— 


IDENT = 'V04-000' 
ene SS ENG _NOVE (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) 
BEGIN 


1 

leueneneenaeeatennentenennereerenteereerretertererettertnereetnntnntnenentenes 

'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
ONLY IN ACCORDANCE WwW THE TERMS OF 


AND MAY BE USED AND COPIED 
ITH H LIC HT 


'# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 

BILITY FOR THE USE OR _ RELIABILITY OF ITS 


!® DIGITAL ASSUMES NO RESPONSIBIL 
CH IS NOT SUPPLIED BY DIGITAL. 


!® SOFTWARE ON EQUIPMENT WHI 
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FACILITY: EXCHANGE - Foreign volume interchange facility 

i ABSTRACT: RT-11 volume specific routines 

i ENVIRONMENT: VAX/VMS User mode 

AUTHOR: CW Hobbs CREATION DATE: 26-Aug-1982 

i MODIFIED BY: 

VO3-004 CWH3004 CW_Hobbs 25-Jul-1984 
Move logic check 175 to after a test for global caching, 
since globally cached write-locked volumes were hitting 
the trap. 

v03-003 CWH3003 CW Hobbs 12-Apr-1984 
Disable mosses about recovering devices, and force 
/TRANSFER=BLOCK to be global 


V03-002 CWH9001 _ CW Hobbs | 30-Apr-1983 
Remove debugging call accidentally checked in. 
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28 2 1 MACRO Smogule pane string = ‘exch$rti1" %; ' Ther quire file needs to know our module name 
28 } REQUIRE ‘SRCSTEXCREQ ! Facility-wide require file 
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Module table of conten 


ZSBTTL ‘Module table of contents’ 

ee Module table of contents: 

6 FORWARD ROUTINE 

6 exch$rtli_bad_file =: NOVALUE, 

68 exch$rtli_close_file, 

69 exch$rtll_create_file, 

70 exch$rti1_delete file 

71 exch$rtl1_dircache_exit_handler : NOVALUE, 

7 exch$rti1_dircache_star : NOVALUE, 

7 exch$rt11_dircache_stop : NOVALUE, 

74 exch$rt11_dirseg_fTush, 

75 exch$rt11_dirseg_get, 

76 exch$rtll_dirseg_get_nochk : jsb_rir2, 

77 exch$rt11_dirseg_put, 

78 exch$rt11_expand_filename, 

79 exch$rtl1_format_current_date : NOVALUE jsb_ 
exch$rt11_mount 
exch$rt11_open_file, 
exch$rt11_write_cleanup : NOVALUE, 


: NOVALUE 


EXCHANGE facility routines 
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1 EXTERNAL ROUTINE 

1 exch$cmd_fetch_recfmt_implied : NOVALUE, 
1 exch$cmd_match_filename, 

1 exch$cmd_related_file_parse, 

1 exch$io_rtll_read, 

1 exch$io_rtil_write 

1 exch$pdp_filter_filename 

1 exch$pdp_flush_write_buffer, 

1 exch$pdp_get, 

1 exch$pdp_put 

1 exch$rtacp_check_position : NOVALUE, 
1 exch$rtacp_clean_directory, 

‘ exch$rtacp_find_empty_area, 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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exch$stacp_find_ file, 
exch$rtacp verity directory, 
exch$util_Tao_buffer, 
exch$util_file_error, 
exch$util“radix50_from_ascii, 
exch$util_radix50_to_ascii, 


exch$util“rtlictx_alTocate, 
exch$util_rtiictx_release : NOVALUE, 
exch$util_vm_allocate, 
exch$util_vm_allocate_zeroed, 


exch$util_vm_release 


Equated symbols: 
‘LITERAL 
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reate a bad file over a bad spot on the volume 
T-11 specific file close routine 
T-11 volume file create 

T-11 specific file delete routine 
Routine to flush the cache 
ngage write-back caching on the directory 

Disengage caching and flush the directory 
Write out directory segments 

Return pointer to specific directory segment 

Return pointer to directory segment without checking 
Write a specific directory segment 

Convert directory entry to ASCII filename 

! Put the current date into a directory entry 

RT=-11 specific volume mount routine 

RT-11 specific file open routine 

Finish ig ge to the volume 

Prepare to write to the volume 

Clear marks on volume 


ea 
1 
-1 
1 


Get or assume the value for /RECORD_FORMAT 

soeere expanded file names for match 

Build an output file name ; 

Read blocks from a random access device 

Write blocks to a random access device 

Remove invalid characters from a filename 

Flush | records ait hi in the write buffer 

Get functions for small PDP record structure 

Put functions for small POP record structure 

Find directory encey f it has moved 

Shuffle and/or split directories as needed 

compress directory structure and find free space 
T-11 directory search routine . 

Verify directory structure and compute volume size 

Do an FAO conversion 

Signal an RMS error ’ 
Convert characters to Radix-50 from Ascii 
Convert characters from Radix-50 to Ascii 

Get an RT-11 context block 

Give it back 

Get some virtual memory Sy 

Get some virtual memory, initialized to zero 

Return some virtual memory 
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GSES Nat lit gad flteetaitasouttoe ats monte Ca2 
st oat ROUTINE exch$rtl1_bad_file (filb : Sref_bblock) : NOVALUE = ZSBITL ‘exch$rti1_bad_file (filb)’ 
Neg 
FUNCTIONAL DESCRIPTION: 
Perform RT-11 bad block handling by placing a FILE.BAD file over the bad block. This routine will b 


called when a bad block is detected on the output file during a copy operation. We assume that ther 
@ zero-block empty file entry following the current entry. 


—_ 
w 
—_ 
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One of the following actions will be taken: 


The bad block is the first block in the output file: 
The output file is renamed to a 1 block FILE.BAD and made permanent. Remaining bloc 
moved to the empty file. (Single block files are treated as this case) 

The bad block is in the middle of the output file: 
The output file will be left as a tentative 


- If there is room for another entr 
LE.BAD is created and the remaining 
e. If there is no room to add an entry 
addition to the one known to be bad. 


the current directory segment, then a 1 bloc 
blocks are moved to a newly created empty fi 
FILE.BAD will contain all the free blocks in 


The bad block is at the end of the file: 
The output file will be left as a tentative file, and a 1 block FILE.BAD will be cre 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

; 

i 

; 

i 

i 

i 

i 

i 

i INPUT/OUTPUT: 

filb = pointer to block describing the file 
IMPLICIT INPUTS: 

! things hanging from the filb, notably the bad block number is in RABSL_BKT in the volb rab. 
} OUTPUTS: 

filb - receive info pertaining to the file to be closed 

IMPLICIT OUTPUTS: 
none 
: ROUTINE VALUE: 
: none 
SIDE EFFECTS: 
none 
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Sdbgtrc_prefix (‘exch$rt11_bad_file> '); 


LOCAL 

bad_pbn 
blks_before, 
dblks_after, 
ent_Ten, 


bn of the bad block 

locks before the bad block 
blocks after fhe bad one 
length of a directory entry 
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_bad_file (ficb) -Sep-19 EXCHNG.SRCJEXCRT11.832;1 (3) 

emp : $ref_bblock, ! pointer to the empty entry after this one 
eos : $Sref_bblock, Q pointer to the end ot Segment marker 
status 

_— h$a_gbl C $ k]: $Sref_bblock 
copy = exc excg$a work]: $re ock, 
etn. = filb Tiibse contexts : $ref_bblock, 
namb = filb Lfilb$a_assoc_namb : Sref_bblock, 
volb = filb Lfilb$a_assoc_volb : $ref_bblock, 
rab = volb [volb$a_ra : $ref_bbloc 
seg = ctx rei ictuse_se address] : $ref_bblock, ! pointer to the directory segment 
ent = ctx [rtlictx$a_ent_address] =: $ref_bblock ! and the directory entry for this file 


Sdebug_print_lit (‘entry’); 


Sblock check (2, .filb, filb, 565); 127? definitely over-zealous checking 
Sblock_check (2, .namb, namb, 663; 
block check (2, .volb, volb, 567); 
Sblock-check (2, .ctx, rtlictx, 568); 
Slogic_check (2, (.ctx [rtlictx$a_assoc_filb] EQL .filb), $1233 
Slogic_check (2, (.ctx Ertlictx$a_assoc_volb] EQL .volb), 218); 
Slogic.check (2, (.ctx [rtlictx$y output. filed), 219); 
Slogic=check (3, (exch$rtacp_verify_directory (.volb)), 220); 


: The bad block number is sitting in the rab 


bad_pbn = .rab Crab$l_bkt); 
1c vets Cvolb$v_virtualJ 


bed_pbn = ,bad_pbn =- 1; 
$logic_check (2, (T.bad_pbn GEQU .ctx Crtlictx$l_start_block]) AND (.bad_pbn LEQU .ctx Ertlictx$l_eof_block] 
$trace_print_fao ("bad_pbn !UL', .bad_pbn); 


! Undo pbn => vbn mapping 


Let the outer routines know that we have erased this file 
filb Cfilb$v_file_erased) = true; 
: Get the pointer to the empty entry after this one 
ent_len = rtilent$k_length + .seg C(rtlihdr$w_extra_bytes]; 
emp = .ent + .ent_len; 
$logic_check (3, T(.emp pret iencsb_type bytes EQL rtilent$m typ_empty) AND (.emp ECrtilent$w proche EQL 0)), 
Slogic_check (3, ((.ent Crtilent$v_type] EQL rtilent$m_typ_fentative) AND (.ent Crtilenc$w_Blocks] NEQ 0)), 
: A structured GOTO follows. EXITLOOPs will be used to rejoin common code at the end of the routine 
WHILE 1 
dO 
BEGIN 
: How many blocks were written before the bad block 
blks_before = .bad_pbn - .ctx (rtlictx$l_start_block); 


! If blocks before is zero, we can tie this off right now 


<m 


<m 
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04-000 exch$rtil_bad_file (fitb 12788871986 93:35:57) HeNchnceSheSexeRY ti esoe1 ~~ a0 v 
39 3 : : 
40 IF .blks_before EQL 0 | : 
4) 5 THEN ‘ 
tg $ BEGIN ‘ 
rf 8 | Move any remaining blocks to the empty entry ‘ 
46 49 emp [rtilent$w_blocks] = .ent Crtilent$w_blocks] - 1; : 
re 0 45 } Create a one block permanent FILE.BAD in the entry : 
sf 0 4h ent (rtllent$w_blocks] = 1; ; 
§ 0 28 Sexch_signal (exch$_rtll_badfile, 1, .bad_pbn); ! Tell the guy that we made a .BAD file 
54 6 rt] eat ! Done here, jump to the end to fill in the rest of the bad 
5 0 ; 
$7 i How many blocks are after the bad one 
23 8 38 blks_after = .ctx Crtlictx$l_eof_block] - .bad_pbn; 
4 $22 If blocks after is zero, we can also do the work and exit 
es 37 if blks_before EQL 0 
# 33 BEGIN 
44 $0) Remove one block from the tentative file 
69 : ent Crtilent$w_blocks] = .ent Crtilent$w_blocks] - 1; 


~“ 
-o 


SF 
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: Move the empty pointer to the ent pointer, where the common code expects to find the bad entry 
ent = -emp; 


SUS 


Create a one block permanent FILE.BAD in the empty entry 
ent (rtllent$w_blocks) = 1; 


OOOO ae 
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70 

71 
78 % 
79 a Sexch_signal (exch$_rt11_badfile, 1, .bad_pbn); ! Tell the guy 
Bt 75 EXITLOOP; 
i f on 
84 A} ! OK, the bad block is in the middle of the tentative file. We have two choices now, depending on wheth 
HH 4 have room in the segment to add another file entry. First. find the end of segment marker. 
87 1 eos = .emp; ! Point to the empty entr 
88 é WHILE i =e 

9 dO 
BEGIN 

91 5 eos = .eos + egnt len; ' Advance to the next entry 
4 $logic_check (2, T.eos LSSU (.seg + cttish dirseglen)). 224); 
94 
95 


oc 


s LSSU 
ic -eos ([rtilent$v_type] EQL rtf tentSm.typrend segmen 
EXITLOOP 


and directory routines 16-50-1984 9416337 AX-11 Oi legene Vai Eso. Page 


_bad_file (filb) 


: Make sure that there is room to add one more entry to this segment. 


p- EXCHNG.SRCJEXCRT11.832;1 


END; 


iF ((.eose2 + .ent_len) GEQU (.seg + rt11$k_dirseglen)) 


BEGIN 

Make the tentative file include all the blocks before the bad one 

ent C(rtilent$w_blocks] = .blks_before; 

Move the empty pointer to the ent pointer, where the common code expects to find the bad entry 
ent = .emp; 

} Put the rest in a permanent FILE.BAD in the empty entry 

ent Crtilent$w_blocks] = .blks_after + 1; 


<m 


If not, we will have to add a big 


Sexch_signal (exch$_rtil_badfile, 1, .bad_pbn, exch$_rtll_bigbadfile); ! Tell the guy the bad news 


EXITLOOP; 
END 


Room for another entry, make it <TENT> <BAD> <EMPTY> 


-000 
: 
00 
01 
08 
04 
05 
Of 
08 
09 
10 
1} 
18 
14 
iF 
17 
18 
19 
0 
; 
5 
4 
3 
6 
7 
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ww 


&& 
44 


E 
BEGIN 
LOCAL 
sl; 


: Slide the rest of the segment up one entry to make room for the new entry 


sl = .e0s+2 - .emp; ! Length of segment between empty and end 
CHSMOVE (.sl, .emp, .emp + .ent_len); ! Slide rest of segment up 


Finish up the tentative entry 
ent (rtllent$w_blocks] = .blks_before; 
} Point ‘‘ent’’ at the bad entry and ‘‘emp'’ at the new empty 


ent = .emp; 
emp = .emp + .ent_len; 


: Finish up the new empty entry. Since we slid the old empty up, all we need to do is set the lengt 


emp (rtllent$w_blocks) = .blks_after; 
Slogic_check (3, (.emp Crtilent$b_type_byte] EQL rtilent$m_typ_empty), 225); 


: Create a one block permanent FILE.BAD in the middle entry. 
ent Crtilent$w_blocks) = 1; 
Sexch_signal (exch$_rtil_badfile, 1, .bad_pbn); ' Tell the guy 
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¢ and directory, rout ines 1$-S00-1964 04:14: 
EXITLOOP; 


ND; 
Slogic_check (0, (false), 216); 
END; 
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74 
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! We should have hit an exitloop before here 


' “ent’’ points to the bad entry, fill in the info common to all three cases 


ent Ertilent$l_filename] =r 
ent irtilentSw filetype] = r50_bad; 
exch$rtl1_format_current_date (7ent}; 


ent nti tentsb.type_byt J = rtilent$m_typ_permanent; 
e j file; 
exch$rt11_dirseg_put (.volb, .ctx Crtlictx$l_seg_number)); 
Force a directory update on disk if caching is active 
if .volb Cvolb$v_dircache_active] 
THEN 


BEGIN 
exch$rtli_dircache_stop (.volb); 
exch$rtll_dircache_start (.volb); 


' Renable 


: ‘FILE "* in radix 50 
! "BAD" in radix 50 


! Flush the modified segment 


! Do the 1/0 


caching 


Set a flag so that the copy command will attempt to retry the current file 


copy Ccopy$v_reopen_input] = true: 
RETURN; 
END; 


-EXTRN 


EXCHSRT11 RT11 file and directory routines 
\v04-000\ 

EXCHSCMD_FETCK RECFMT_IMPLIED 
EXCHSCMD_MATCH © ILENAM 
EXCHSCMD RELATED FILE_PARSE 
EXCH$IO_RT11_READ 
EXCHSIO_RT11_WRITE 
EXCHSPDP_F ILTER_F ILENAME 
EXCHSPDP_FLUSH_QRITE BUFFER 
EXCHSPDP-GET, EXCHSPDP_PU 
EXCHSRTACP_CHECK_POSITION 
EXCHSRTACP_CLEAN DIRECTORY 
EXCHSRTACP_F IND_EMPTY_AREA 
EXCHSRTACP_FIND FILE 
EXCHSRTACP-VERIFY_ DIRECTORY 
EXCHSUTIL_FAO BUFFER 
EXCHSUTIL-FILE ERROR 
EXCHSUTIL-RADIZ §-FROR ASCII 
SR CHSUT AL RADIX “TO_ASCII 
EXCHSUTIL-RT11CTX_ALCOCATE 
EXCHSUTIL_RT11CTX_RELEASE 
EXCHSUTIL_VM_ALLOCATE 
EXCHSUTIL_VM_ALLOCATE_ZEROED 
EXCHSUTIL_VM_RELEASE 


2 Page 9 
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04-000 exch$rtii_bad_file (filb) 1exge8= 1382 85:35:3F | eM cebtese eA yt 95882, ge 39 v 
.EXTRN EXCHSA, BL FuCHSUTIE BLOCK_CHECK : 

-EXTRN EXCH$_BADLOGI =RT11_BADF ILE : 

-EXTRN EXCHS fi “BIGGADF ILE : 

.PSECT EXCHSRT11_CODE,NOWRT,2 : 

OFFC 00000 ENTRY oats BAD. FILE, Save R2,R3,R4,R5,R6,R7,-; 0219 : 

SE 10 ¢ 9002 SUBL : : 

7E 000000006 €F 04 ¢ 0 ADDL ip “EXCWSA —_ -(SP) : 0282 ; 
z 06 AC D D MOVL : 028 : 

9 if ASD 11 MOVL i te " : 286 ; 

8 é Az D 15 MOVL : : ; 

4 —E A 3 019 MOVAB ah oI 3 02 § F 

2 O35B00FA BF p 01D MOVL s56h4, R2 : 029 ; 

51 0235 8F 3C 00024 MOVZWL ; ‘ 

0 soooo0006 FF be ooode ga bf TI, BLOCK. CHECK : : 

52 tatihtd br p0 00 ; a HF + 0294 : 

1 0236 8F 3¢ 000 MOVZWL wee, Lie : : 

50 18 A3 dO 0003 MOVL : ; 

9000000 G EF 16 0004 JSB exc su ih. BLOCK. CHECK : : 

52 041B00F F 20 0004 MOVL ise rea 5 + 0295 ; 

51 023 F 3C Q004F MOVZWL : : 

50 9 DO 00054 OVL : ; 

000000006 EF 16 90097 JSB Paeaurs TIL_BLOCK_CHECK : : 

52 008200F4 F p0 005 MOVL A 9 24, Ro + 0296 ; 

51 0238 BF 3C 00064 MOVZWL é 6a : ; 

50 58 DO 00069 MOVL o° : ; 

000000006 EF 16 0006C JSB Hatten BLOCK_CHECK : ; 

53 10 Ag D1 00072 CMPL  16(R8), R3 + 0297 ; 

13 13 00076 BEQL =s«d1$ : ; 

7E D9 «8F 9A 00078 MOVZBL #17, -(SP) : ; 

01 DD 0007¢ PUSHL : ; 

000000006 8F OD OO07E PUSHL AEXCHS, BADLOGIC : ; 

000000006 00 03 FB 00084 CALLS : Li STOP : ; 
59 14 As D1 00088 1$: CMPL OtR8), RO : 0298 3 

13 13 OOO8F BEQL : : 

7E DA 8F 9A 00091 MOVZBL #218, -(SP) : F 

1 0D 00095 PUSHL : : 

000000006 8F DD 00097 PUSHL 4 CHS BADLOGIC : : 

000000006 00 3 FB 9090 CALLS $STOP : : 
13 28 AS 01 E OOA4 2%: BBS t GD 3$ : 0299 : 
7E DB OF OA OA9 MOVZBL ; i, SPS : | : 

1 DD OOOAD PUSHL } : ; 

000000006 8F DD OOOAF PUSHL HEXCHS BADLOGIC : ; 

000000006 0 3 FB 00085 CALLS 188STOP : : 
Ad D a 3$: MOVL : RS) + 0304 ; 

2 38 «=6A0 OD C MOVL (RQ) BAD_PeN : : 

02 48 «OA 4 € C4 BBC 4 dtp »,4$ : 0305 : 
B D7 000C9 DECL  BAD_PBN : 0307 ; 

72, AB 5B D1 CB 4$: CMPL BAD_PEN. 114(R8) > 0308 ; 

06 F OOOCF BLSSu 5$ : : 

20 AB : pt D1 CMPL §_BAD_PBN, 32(R8) ; : 

13 1B D3 BLEQU : ; 

7E DD BF 9A 00007 5S: MOVZBL e2l, (SP) : : 

1 DD 000DB PUSHL # ; : 


N13 

i routines 16-Sep-1984 01:14:37 AX-11 Bliss-32 V4 0-742 Page 
a he eKchSetti boc. file tritby atts Peer HT a SNe Tate Leet , 
000000006 8F DD 000D PUSHL #EXCH$_BADLOGIC ; ; 
re ne Bee os: EE Be cue fay] |: 
AE 7A AB OD E MOVL Veer ), B(SP) + 0317 : 
50 8 AE 06 C1 iS ADDL3 #6, 8(SP), RO : : 
4 AE 8 F movZwe (RO), ENT LEN ; 
4 AE be cb F ADDL2 #14, ENT_CEN : ; 
57 A 4 AE C1 001 ADDL ENT LEN, (R10), EMP : 03 ; 
2 as C3 001 SUBL 14TR8), BAD_PBN, BLKS_BEFORE : 03 : 
oe Foc, 7 52 D4 001 CLRL = R2 ; 03 : 
0c : a3 st 8 KS_BEFORE 
D 119 INCL : ; 
MOV (R10), RO : 0 : 
08 20 §t 4 B11? CUBUS #1, 8C(RO), 8CEMP) : : 
we QOAD 31 0011D BRw 138 > 0344 : 
§ 5B C3 00120 7$ SUBL3 BAD_PBN, 32(R8), BLKS_AFTER : 0353 : 
2 wae 28 E9 001 BLBC =_- R2, -8$ + 0357 : 
3 6A 00 91 $ MOVE (Rio), RO ; 0363 
6A - ¢ 00 61 f MOVL FAP. (R10) ; 0367 
56 0033 0 tt g 5% BOVE EMP, EO + 0381 ; 
t4 04 AE CO 01 8 9S ADDL2 ENT LEN, EOS ; 0385 ; 
50 08 ar 00000400 ar ci o13¢ ADDL #102 ‘0 (SP), RO ; 
: 13 oF 00148 BLSSu 108° : : 
7E EO 8F 9A O14, MOV ZBL #224, -(SP) 
0000 SF SD $0156 PUSHL #EXCH$_BADLOGIC : (3 
arenes 6 5 CALLS A LIBSS : : 
08 01 Ab — 8 8 ED o150 10$: cCHBZV #0. #4, 1(E0S), #8 ; 0387 
er eet) cee pam | 
51 56 
400 BF C1 0016 ADDL3 #1624, &(SP), RO ; 
” - 5 =a 51 D1 O17? CPL Rl rb ; ; 
50 ra 60 birt MOVL (R10), RO > 0400 3 
08 AO Oc AE 80 0017F MOVW § BLKS_BEFORE, 8(RO) ; 
eS ti 0184 MOVL MP, ~ (R10 + 0404 ; 
0 Bh OO bola ADDUS ini) AFTER, 8(RO)  hetene ; 
ets =. 000000006 ef Dp 0 190 PUSHL HEXCHS RT11_BIGBADF ILE ; 0410 
1 DD 0019 PUSHL . : 3 
000000006 8F DD 0019A PUSHL #EXCH$_RT11_BADFILE : 
000000006 00 , Fe 140 CALLS #4, LIBSSIGRAL Feed 
50 5 7 ¢ Q1A9 11$: tite EMP, 0S, RO 0424 ; 
04 BE47 38 of 8 189 move SL. (EMP), @ENT_LENCEMP) : 04 3 : 
08 20 0c 13 7 169 MOVW  BLKS_BEFORE, 8(RO) ; F 
S$ om RABI | te it he pel i 
08 2} % AE : O1es MOV BLKS_AFfER, 8(EMP) : 0438 : 


RT11 file a 
exch$rt11_b 


EXCHSRT11 
v04-000 


; Routine Size: 543 bytes, Routine 


routines if ue 
b) 1a-8ep 
50 A D 1CA 12$: 
AO of 80 Bie 188: 
g 0D O13 
00000000G 8F ODD 0010 
00 03 FB 001D 
; st ap abies 1% 
Al 1F4026F4 SF DO OO1E9 
Al OCAC oF 4 O1F1 
0000V O1F7 
76 85 bb ooteD 
CF 0 FB 3h 
OE 50 Ad €E9 ogee 
59 DD 00208 
CF 9! FB QO20A 
9 DD 0020F 
CF 01 FB 00211 
50 00 BE vO BoSie 15$: 
AO 04 88 OO21A 
04 O0021E 
Base: EXCH$RT11_CODE + 0000 


AX-11 Bi ist =32 V4,0-742 
EXCHNG. SRO) EXCRT11.832;1 


, EXCHSRT11_DIRCACHE_STOP 


#1, EXCHSRT11_DIRCACHE_START 
a0(sP), 
#4, 52(R0) 


BeBe Se Ge Be Ge Ge Be Se Ge Se Ge Se Ge Ge Fe Fe Fe Ge Fe Ge Ge 
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e 


$debug_print_lit (‘entry’); 


Sblock_check ( 


-filb, filb, ret te 12? definitely over-zealous checking 
$block_check 


‘namb, namb, 448); 

-volb, volb, 449); 

wetx, rtiictx, ); ; 
(.ctx Ereiictxga_ assoc_ filb] EQL .filb), 
(.ctx Ertlictx$a_assoc_volb] EQL .volb) 
(exch$rtacp_verify_directory (.volb)), f 


( 
block_check ( 
lock_check ( 
ogic_check ( 
ogic_check ( 
ogic_check ( 
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exch$rtii_close_file CFilb) 14- ~Sep-19 4 12:29:07 EXCHNG.SRCJEXCRT11.832;1 , (4) V 
; on 5, OBA ROUTINE exch$rtl1_close_file (filb : S$ref_bblock) = ZSBTTL ‘exch$rti1_close_file (filb)' ; 
3 0479 '++ : 
3 0480 i : 
4 tt FUNCTIONAL DESCRIPTION: : 
: Beez } Perform RT-11 volume specific close processing ; 
; 0485 i INPUT/OUTPUT: : 
: ot $4 filb - pointer to block describing the file ‘ 
; eta ' IMPLICIT INPUTS: : 
; 0490 ' > 
3 0491 ! none 3 
3 049 ! 3 
3 049 ' OUTPUTS: ; 
3 0494 ! . 
: Beae filb ~ receive info pertaining to the file to be closed ‘ 
3 0497 ' IMPLICIT OUTPUTS: é 
; 0498 ! : 
3; 406 0499 ‘ none . 
3; 407 0500 § ! : 
3 0501 ' ROUTINE VALUE: : 
3; 409 8206 § ! : ; 
; 410 050 ! true if able to close the file, false otherwise : 
3; «411 0504 2! F 
3 tig 0505 2 ! SIDE EFFECTS: $ 
3; «41 0506 ! : 
3: 4146 0507 ! none ; 
: 615 0508 = ; 
: 416 0509 2 3 
: 417 0510 2 $dbgtrc_prefix (‘exch$rt1l1_close_file> '); ‘ 
3; 418 0511 § : 
; 419 b21¢ LOCAL 3 
: 420 051 2 status : 
: 4621 0514 § 3 3 
; 422 0515 3 
; 423 0516 BIND 3 
; 424 0517 ctx = filb Cfilb$a_context) : Sref_bblock, 
; 425 0518 namb = filb Cfilb$a_assoc_namb : Sreft _bblock, 
3 0519 volb = filb Cfilb$a_assoc_volb : $ref_bblock 
3; 4 §230 
3 521 
; 05 § 
$ 05 
; 0524 
3 B2 5 
: ssh 
: 355 
3 8380 


ses. 8 & 8&8 &@ & 


b 
l 
l 
l 


Block at which to write nu 
Fill the buffer with nulls 


cur_Blk'= .ctx_Crtiictx$l_high_Block_ written) + 1; 
Slagic check (3, (.ctx Crt11ctx$a_buffer] NEQ 0), 195); 
CHSFILEC (0, ctx$k_buffer_length, -ctx Crtiictx$a_buffer]); 


} Write the null blocks 


blk_cnt = .blks to_clear; 
WHITE -blk_cnt GTR 


! Note the signed compare 


BEGIN 

IF NOT (status = exch$io_rtil_write (.volb, 
-cur_blk 
MINU"(.b(k_ent, ctx$k_ 
ctx Crtlictx$a_buffer 


ALL the rms stuff hangs fr 
First block to write 
Number of blocks 

Address of the 1/0 buffer 


0908 SIN NN NNN NNO 


ny {ter packs? 


BEGIN 
exch$rt11_bad_file (.filb); 
A ae .status; 
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v04-000 exch$rtil_close.file (filb) 1o788b7 1882 93:35:05 «= HEchincesReSexcet ti -B5os1 ~~ 45 
: +28 ; 1 Output files need some directory tweaks and a buffer flush 
: 441 5 § if .ctx Crtl1ctx$v_output_file] 
: 44 534 THEN 
3; 444 535 BEGIN 
> 444 5 § LOCAL 
> 445 5 blks_used 
: rr | Be 5 a : Sref_bblock; ! pointer to the empty entry after this one 
: 448 0540 seg = ctx peel icexse.se address) : $ref_bblock, ! pointer to a directory segment 
; rch bee) ent = ctx [rtlictx$a_ent_address] : $ref_bblock; ! and the directory entry for this file 
; 431 038 : Flush any blocks that are sitting in the output buffer 
: re 0545 if NOT (status = exch$pdp_flush_write_buffer (.ctx)) 
> 454 0546 THEN 
; 455 0547 RETURN .status; 
> 456 0548 
: tet been } How many blocks were actually used in the file 
3 rit b2es blks_used = 1 + .ctx Crtelictx$l_high_block_written] - .ctx Crtiictx$l_start_block]; 
: 461 gae§ ! If an allocation was requested, and the allocation was more than was used, then increase the size tot 
; re Bees } allocation request. The extra blocks will be filled with nulls. 
; 464 0556 if ((. filb Cfilb$l_q_allocation] NEQ 0) 
: 466 0558 (.filb Cfilb$l_q_allocation] GTRU .blks_used)) 
: 467 0559 
: 468 0560 BEGIN 
3; 469 0561 LOCAL 
: 470 p20¢ blk_cnt, 
3; 471 056 blks_to_clear, 
; 472 0564 cur_blk; 
3; 473 0565 
: rte gece Figure out how many blocks to clear and the pbn of the first block to clear 
: 476 0968 blks_to_clear = .filb Cfilb$l_q allocation] - .blks_used; ' Number of null blocks to w 
; 0570 
3 4 1 
; 0878 
; 4 
; 203 
; 0899 
3 0578 
; 0579 
; 0580 
; 0 


PAA MA AAU SELES EEE EEE EPA PNW & 


SES 


| 
_————————— 
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97 
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00 
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exch$rtil_close_file (filb) 14-Sep-1984 12:29:07 EXCHNG.SRCJEXCRT11.83 
0389 Point at the next chunk to write 
9891 blk_cnt = eblk_cnt = ctx$k_buffer_blocks; ! Number of blocks 
236 cur_blk = .cur_blk + ctx$k_buffer_blocks; ! Number of blocks 
a sles 
0596 2 Update the pointers to the new highest block written 
299 4 ctx Crtiictx$l high_block written] = .ctx Crelictx$l_high_block_written] + .blks_to_clear; 
0598 4 blks_used = .bTks_uSed + Tblks_to_clear; 
0599 4 
Bene END; 
be8 iy the file by moving any unused blocks to the empty directory entry which immediately follows t 
' entry. 
0604 ! 
0605 emp = .ent + EET tencek ten th + ae Crtlihdr$w_extra_bytes); ! Pointer to the empty entry 
0606 Slogic check (3, ((.emp Crtilent$b_type byte] EGL rtiTent$m_typ_empty) AND (.emp (Ertllent$w_blocks] EQL 
0607 emp Crtilent$w_blocks] = .ctx CrtiTctx$T_eof_block] - ! Count of leftovers (0 is o 
0608 -ctx Crtlictx$l_Rhigh_block_written]; 
0609 ent C(rtilent$w_blocks] = .blks used; 
0610 $debug_print_fao (‘used !UL, Teft 'UL, eof !UL, high !UL', .ent Crtilent$w_blocks], .emp C[rtllent$w_b 
pel) -ctx Crtiictx$l_eof_block], .ctx trtfictx L_high_block_written]); 
Betz If there is another file with the same name around, we need to delete it now 
0615 iF .filb Cfilb$v_delete_previous] 
0616 3 THEN 
0617 4 BEGIN 
0618 4 LOCAL 
9984 : ctx2 : Sref_bblock; 
aes ? ctx2 = exch$util_rtlictx_allocate (.volb, 0); ! Get an RT11 context block 
0638 7 Fe geenirtaeen Fee Free (.ctx2, ctx Crtlictx$t_exp_fullname], .ctx Crtlictx$l_exp_fullname_len]) 
be58 5 BEGIN 
0626 5 BIND 
0627 5 copy = exchSe_obt Cexcg$a_copy_work]) : $ref_bblock, 
0628 5 ented = ctx2 (rtiictx$a_en€_address) : $ref_Bblock; 
0629 5 $debug_print_fao (‘deleting previous copy of “ee 
0630 5 fi filb$l_result_name_len], filb Cfilb$t_result_name]); 
$ Slogi¢ check (2, (NOT .ctx2 Crtlictx$v_typ_protected)), ; ! Must be able to delete 
§ ented ([rtilent$b_type_byte] = rtilent$m_typ_empty; : is gone 
%z exch$rt11_dirseg_put (.volb, .ctx2 C(rtTictx$l_seg_number)); 
bose é f cP Tcopy$v_q_logJ 
0636 : Sexch_signal (exch$_deleteprev, 2, .filb Cfilb$l_result_name_len3, filb Cfilb$t_result_name] 
0638 4 ELSE 
6 H ? Slogic_check (3, (false), 171); 
641 ? Return the context block 
$8 4 exch$util_rtlictx_release (.ctx2); 
644 4 
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exch$rtli_close_file (filb) 1e738b-1982 93:35:05 = HEKcrinc Seesexcrt ti pso.1 age if 
ot? END; 

te And finally, mark our new file as permanent and current, and write the directory segment 
064 ent rtilent$v_type] = rtilent$m_typ_permanent; ! Mark only type field, tected bit might 

0650 ent Ere ientsye fobs = 1; ne ' Mark the entry as current ents cee Hedonic 
bees exch$rtll_dirseg_put (.volb, .ctx [rtlictx$l_seg_number]); 

bee§ $Slogic_check (4, (exch$rtacp_verify_directory (.volb)), 187); 

ce ee 

be28 Clear the stream active bit and all other context flags 

0658 2 ctx Crtlictx$l_flags] = 0; 

0659 

0660 RETURN true; 

0661 1 END; 


~-EXTRN EXCHS_DELETEPREV 


OFFC 00000 .ENTRY EXCHSRT11 CLOSE FILE, Save R2,R3,R4,R5,R6,- ; 0477 
R7,R8,R9,R10,R1T ¢ 
SE 04 C3 0000 SUBL2 #4. SP : 

57 04 AC DO 0000 MOVL Fite R? + 0517 

52 O35B00FA &F pO 00009 MOVL 6295674, R2 + 0524 
51 O1BF 8F 3¢ 00010 MOVZWL #447, R1 : 
50 7 DO 00015 MOVL  R7, RO : 
000000006 cf 16 90018 JSB EXCHSUTIL BLOCK CHECK : 

52 010A00F F b0 OO1E MOVL #174328237 R2 : 0525 
51 01c0 8F 3¢ 000 MOVZWL #448, R1 ; 
50 1 A? 00 O002A MOVL 24(R?), RO : 
000000006 EF 16 0002 JSB XCHSUTIL_BLOCK_CHECK ; 

66 Ig A7 00 00 MOVL 8(R7), (S : 0526 
52 041B00F gf p 0038 tL  #68878579, R2 : 
51 01ci BF 3C 0003F MOVZ2WL #449, R1 ; 
50 6E DO 00044 MOVL (SP); RO : 
000000006 EF 16 00047 JSB EXCHgUTIL BLOCK_CHECK ; 

56 20 «A? 09 004D MOVL (R7), RO : 0527 
52 008200F4 BF p 0051 #8519984, R2 : 
51 01c3 BF 3¢ 00058 MOVZ2WL #451, RI ; 
50 $ DO 0005 R6, RO ; 
000000006 EF if 9060 JSB X€HSUTIL_BLOCK_CHECK ; 

57 1 Ag D 66 CMPL 6(R6), R7 > 0528 
13 13 9 6A BEQL =s«1$ : 
7E 7A BF OA C MOVZBL #122, -(SP) : 
1 0D 00 PUSHL #1 : 
000000006 8F DD 007 PUSHL aEXCHS BADLOGIC ; 
000000006 00 3 FB 0007 CALLS #3, LIB$STO ; 

6 14 Ag D1 OO7F 1$: CMPL 0(R6), (SP) : 0529 
13° (13 83 BEQL ; 
7E 78 «BF OA 0 MOVZBL #123, -(SP) ; 
1 DD 9 PUSHL : 
000000006 8F DD PUSHL wEXCHS BADLOGIC ; 
000000006 00 03 FB 1 CALLS #3, L 1BSSTOP : 

3 28 Ab 1 £0 00098 2s: BBS #1; GOC(RS), 3% : 0533 


<m 


14 , “11 Bliss-32_v4.0-742 
18-Sep-1984 93:38:07 — FeXcuneSeesexcr ti -as201 
directory routines 14-Sep-1984 12:29: 
111 RTI1 file and directory rou ens 
voe~000 ce ee 31 00090 BUSHL OR BUFFER 
vos 01 Dd GOOAQ 38: PUSH. RG EXCHSPDP_FLUSH_WRITE, 
F Ng MOVL RO, STATU 
000000006 bh . : ni rte FetRes “Bacne, RO 
A RO) ~ 
50 34 6 of nS ‘ 3 MOVL a5Ri5, RO 
50 ie ie yee CML RO, BLKS_USED 
58 8 F 00C2 BLEQ orks SED, RO, BLKS_TO_CLEAR 
BC bet oth rs sdeRes CUR BLK 924 (R6) 
9 50 1 6 c8 aoues #0. (SP), #0, #814 . 
33 34 AG 00 Sc B8CD Nes CNT 
00 6€ 18 3606 VL BLKS_TO_CLEAR, BLK_ 
esa Sot 52 BS 0008 4$ TSTL © BLK_ENT 
Q 
12 tee PUSHL 24(R6) 
00DD K_CNT 
"© $3 dD dove CHL” SPSS #12 
se PHT BLEGU 
oc 83 1B OO0E MOVL #12, (SP) 
eh 4H PUSHL CUR_BLK 
° dt ae 
a OOEF ¢ Bo ett 
000000006 Et 83 8 00F6 Beas STATUS YS 
0B oF OD aore ante #1 EXCHSRT11_BAD_FILE 
01 F : MOVL = STATUS, 
F 6$: 
~~ | 58 00 0106 Te ae BLK_CNT 
gc 8 OOIhy 78: SUBLZ #13. BLK CNT 
38 tA 11 OotoD ADDL2 BLKS_TO_CLEAR, 52(R6) ‘ 
59 CO OO10F 88: the KSETOLCLEAR, BLKS_USE 
34 A6é 59 ¢ bO198 MOVL 126¢R6) R 
58 72 hb 09 nia ee ee 
é 7A OMG O11A rove athe 
30 AQ 3C 0011 14(R3SCR Zeaty’ scenrs 
50 Be ast 01 SUBWS — S2(RE), 320RE), BC 
2 the AB 001 ROVY —BLKS-USED, 8(RS) 
20 Ag * $8 85 001 Bes, #6, RSCRIS, 108 
cal 08 AS Oe 0 1 ; BRS 
03 2B A? 008 5 1a 108: ek eSB) 
04 AE DD ODIs CALLS #2~, EXCHSUTIL_RT11CTX_ALLOCATE 
FB 0013F VL no: CTX2 
F ; 14 R6) 
cere 46 i 143 pustkn goine) 
* 8 OD or eure AS. EXCHSRTACP_FIND,FILE 
1 e 
000000006 fF : E 133 ite Leas en. R4 
16 
54 000000006 EF 9 *} 168 ire tte 
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v04-000 exch$rtii_close file (ti lb) 1er8Sb= 4882 F3:35i85  HekchncesReSexeRY Ti Bsoe1 ait 
7E AC 8F 9A 00168 MOVZBL #172, <(SP) ; 
000000006 : D f PUSHE aaXCHS ADLOGIC : 
000000006 9 FB 001 f CALLS LIBSs ; 
7E OA p 178 11$:  MOVL ‘ bcttag) + 0632 
01 A 0 17F MOVE #2, 1(R : 
76 Ad DD 00183 PUSHL 118(CTX2) + 0633 
04 AE DD 001 PUSHL  4(SP) : 
0000v cf 02 FB 001 CALLS #2, EXCHSRT11_DIRSEG_PUT : 
0 64 dO 001 E MOVL (R4&), RO + 0634 
2A 30 AO 5 1 001 BBC #3, 48(RO), 13$ : 
5A A? OF 196 PUSHAB 2 (R7) + 0636 
A AZ. DD 001 PUSHL (R7) : 
02 DD 019¢ PUSHL @# : 
000000006 8F DD 0019E PUSHL  #EXCH$ DELETEPREV : 
000000006 00 04 FB OO1A4 CALLS #4, LIBSS ; 
13° 11 OO1AB BRB 13§ + 0623 
7E AB 8F 9A OO1AD 12$: § MOVZBL #171, -(SP) + 0639 
O1 DD 00181 PUSHL #1 ; 
000000006 8F DD 00183 PUSHL HEXCHS BADLOGIC ; 
000000006 00 03 FB 001B9 CALLS #3, LIBSSTOP : 
52 DD 9010 13$: | PUSHL + 0643 
00000000G_ EF 01 FB Bits CALLS #1, EXCHSUTIL_RT11CTX_RELEASE é 
01 «Ad 04 00 04 FO 001C9 148:  INSV #4. #0, #4, 1TR3) + 0649 
0B AS 01 90 OO1CF MOVB ss #1.._: 11 (R3) + 0650 
76 Ab DD 00103 PUSHL  118(R6) > 0651 
04 AE OD 00106 PUSHL  4(SP) ; 
0000v CF 02 FB 00109 CALLS #2, EXCHS$RT11_DIRSEG_PUT : 
28 AG D4 OO1DE 15$: CLRL 40¢R6) : 0658 
50 01 DO 001E1 MOVL #1, RO + 0660 
04 00164 RET : 0661 
; Routine Size: 485 bytes, Routine Base: EXCHS$RT11_CODE + 021F 


EXCHSRT11 
v04-000 


SSSSLESRANLESSELFEAREAVSS 


teal *al* al * al * al * ah al walwalval ah eal eal valval al valwal 
333333 Oooo 


GEAR 


a ns a 


NOUS WN 0 OONOUS wh 


APAAPAAAAAAAAOAAAAO 


Rororonoforofnonry 


14 
RT11_file and directory routines 1b-5e “1984 01:14:37 AX-11 Bliss-32 V4.0-742 Page 19 
exchSrtii_create. file 1 =300- 1382 3:39:35 YEXCHNG. SRE EXCRT11.832;1 7 (6) 
666 1 GLOBAL ROUTINE exch$rtill_create_file = %SBTTL ‘exch$rt11_create_file' 
66 BEGIN 
664 ++ 
665 : 
re FUNCTIONAL DESCRIPTION: 
ve : Perform RT-11 volume specific create processing 
$90 ! INPUT: 
0671 ! 
ber§ } none 
beee IMPLICIT INPUTS: 
067 : copy Ccopy$a_out_filb] - pointer to the filb for the output file 
0877 copy coo ean one Fitba - painter to the filb for the trout file 
0679 ' OUTPUTS: 
0680 ! 
0681 ! none 
et) ! 
set IMPLICIT OUTPUTS: 
0685 : copy Ccopy$a_out_filb] - block receives info pertaining to the created file 
0687 ! 
0688 ' ROUTINE VALUE: 
0689 ! 
B30 true if able to create a file, false otherwise 
069 ! SIDE EFFECTS: 
069 ‘ 
0694 } none 
069 - 
069 
069 $dbgtrc_prefix ('rtll_create_file> '); 
0698 
99 LOCAL 
0700 rfp : Sbblock Cnam$c_bln+nam$c_maxrss], ' output file parse - an RMS NAM block plus expanded string 
701 nam_len, ' temporary to hold length of name 
18 typ_len, ' temporary to hold length of type 
7 tot_len, ' temporary to hold length of name + type 
7 ent : $ref_bblock, ' a pointer to the entry we are adding 
705 start_block, ! the pbn where this file will start 
7 locks, 
70 physical, 
rs status 
? ; 
710 
711 BIND 
ay copy = exch$a_gbl Roucgse copy work : Sref_bblock, 
71 out_name = copy copy$q_ou put_filéname : $desc_block, 
714 inp_filb = copy Ccopy$a_inp_filb) : $ref_Bblock, 
715 inp_namb = inp_filb fiThsa_assoc _n mb) : $ref_bblock, 
ay inp_ctx = inp_filb lb$a_context : $ref_bblock, 
71 out_filb = copy Fropyse outf lb : $ref_bblock, 
718 out_namb = out_filb Cfilb$a_assoc_namb] : $ref=bblock, 
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create fil 


out ctx = out_filb ([filb$a ‘ites 

vol = out_filb B EE} b§3- ~assoc_volb] 
Sdebug_print_lit (‘entry'); 
Sblock check (1, .out_filb, filb, 426); 
$block_check (1, .inp_filb, filb, 536); 
Sblock check (2, “out=nan - namb, 491); 
$Sblock_check (2, .inp_namb, namb, 492); 
Sblock=check (2, .volB, volb, 534); 
Slogic-check (4, (exch$rtacp.verify_d 
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_create_f Sep-1 EXCHNG.SRCJEXCRT1 
H Make certain that write access is permitted, this should be checked long before we get here 
Slogic check (1, (.volb Cvolb$v_write]?, 166); 
If the context pointer is null, then allocate and initialize it. 
ei te EQL 0 
out_ctx = exch$util_rtiictx_allocate (.volb, .out_filb) ! Get an RT11 context block 


ELSE 
Sblock check (2, .out_ctx, rtlictx, 534); 


: Make sure that we haven't crossed signals someplace 


$logic_check (4, (.out_ctx pre} ictxSe_sssoc. fitb EQL .out_filb), 162); 
Slogic-check (4, (.outctx Ertiictx$a-assoc_volb] EQL .volB), 164); 


Set the rest of the block to nulls, nothing carries over from one output file to the next 


CHSFILL (0, rtlictx$k_end_zero = rtlictx$k_start_zero, ! Set rest of block to nulls 
sout_Ctx * rtlictx$k_start_zero); 


! Make sure that it is what we think it is 


! Perform an RMS output file parse on the related name (the result name for the input file) and the 
requested output name from the command Line. 


if NOT (status = exch$cmd_related file parse ( 


-out_name Cdsc$w_Tength], .out_name (Cdsc$a pointerd. ! Command Line out p 
-inp_filb Cfilb$T_result_name_Ten], inp_filb Cfilb$t_result_name], ! Related name 
rfp)y ! Gets new name 


THEN 
BEGIN 


Move the raw name to where it is accessible for the outer signal 


CHSMOVE (.out_name Cdsc$w_length], .out_name Cdsc$a_pointer], out_filb Cfilb$t_result_name]); 
RETURN .status; 


END; 
: Create the result file name in the filb 


out_filb Cfilbs zhane changed = false; ! Assume no name change 
tot_len = .rfp (fansb nameJ; ! Remember st rting Length 
rfp Cnam$b_name p Cnam$l_name)); ! Remove invalid cha 


= exthSpdp_filter_ filename (.rfp Cnam$b_nameJ, .r 
nam_len = MINU (.rfp Cnam$b_name), 6); ! Maximum name is six letters 
IF .tot_len NEQ .nam_len ! If final length not same as initial, then it has changed 


out_filb Cfilb$v_name_change] = true; 


tot_len = .rfp (nam$b_type]; ! Remember starting length of type field 

rfp Cnam$b type = 1? exch$pdp_filter_filename (.rfp Cnam$b_type] - 1, .rfp Cnam$l_type) + 1); 
typ_ten = MINU (.rfp Cnam$b_typel, 4); ! Maximum type is three (plus the separating dot) 
IF ,tot_len NEQ .typ_len 


out_filb Cfilb$v_name_change] = true; 
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! If the directory entry addresses are the same, this is in fact the same file. Note that we are 
assuming that nothing has happened which might have restructured the directory. 


IF inpactx Crtlictx$a_ent_address] EQL .out_ctx (Crtiictx$a_ent_address) 
fg: te pemt Cnamb$v_wild_name] OR .inp_namb Cnamb$v_wild_type] ! Wild in input? 


exch$rtll_create_file -Sep-1 XCHNG. SRCJEXCRT11.832;1 

7 tot_len = .namlen + .typ_len; ! Final length of both 

7 § out_filb Cfilb (result name tend = .volb CvolbSt vel Hdent tens + ,tot_len; ! Length of volume ident 

7 logic check (2,°(.out_Filb Cfilb$l_result_name_lén Ceay ITUbSs_result_nane) 164); 

f 1 CHSCOPY (.volb Evoib tayotnigene tent. vol votbS¢_vol. - “a$l } ! Volume name 

oo nam$l_namel, . en, of nam$l_typel, 

738 6, f7lb$s_result_name, out filb EFitbSt result naméi>; 

ak Do not create a .BAD file unless this is an explicit copy 

79 iF CHSEQL (4, UPLIT BYTE (*.BAD'), .typ_len, .rfp Cnam$l_typel) 

a BEGIN 

44 IF a” ine_nemd Cnamb$v_wild_name] OR .inp_namb Cnamb$v_wild_typeJ ! Wild in input? 
Bans -Out_namb Cnamb$v_wild_name] OR .out_namb Cnamb$v_wild_typeJ ! Wild in output? 

0804 RETURN exch$_nocopbad; 
Ban? ND; re 4 
st $debug_print_fao ("Looking for "!AF'*, .out_filb Cfilb$l_result_name_len], out_filb Cfilb$t_result_name)); 
tt : See if we will have to delete a same-named file later on 
081 out_filb Cfilb v.delete_previous] = false; ! Assume we won't have to delete 
oa gt ete. ind_file (.out_ctx, out_filb Cfilb$t_result_name] + .volb Cvolb$l_vol_ident_len], .tot_len) 
81 BEGIN 

81 LOCAL 

81 retstat, ! Help BLISS figure out the two signals are the same 

7 sigstat; 

81 $debug_print_fao (‘file “!AF’’ exists’, .out_filb Cfilb$l_result_name_len], out_filb Cfilb$t_result_name] 
: Slogic_check (2, (.inp_ctx NEQ 0), 209): 

; : If the input and output files are identical during a wildcard copy, this is illegal 

: iF inpactx Crtlictx$b_type] EQL exchbLk$k_rtiictx ! Input must also be RT-11 

8 

8 

8 

8 


2000000 


ont Ccopy$v_q_replace] 
RETURN exch$_nocopsamdev; 
: Verify that it is ok to delete the existing file 
IF .out_ctx (rtlictx$b_job] NEQ 0 ! Can't delete protected files 
RETURN exch$_nocopdup; 


IF .out_ctx (rtlictx$v_typ_protected] ' Can't delete protected files 
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exch$rtii_create. file . 12=868-1 382 93:39:85 LEXCHNG SRE EXCRT11.832;1 ’ 3 
45 THEN 
rk RETURN exch$_nocopprot; 
rk IF NOT .copy Ccopy$v_q_delete] ! /NODELETE has been requested, don't do it 
631 RETURN exch$_nocopnodel; 
4 § IF _ .out_ctx (rtlictx$w_filetype] EQL r50_bad ! Cannot delete a file with .BAD extension during a 
B34 RETURN exch$_nocopbaddel; 
0856 UF agg tut atte Crelictx$w_filetype] EQL r50_sys Cannot delete a file with .SYS extension during a 
! unless 
0859 NOT .copy Ccopy$v_q_system] ! /SYSTEM has been specified 
OBey RETURN exch$_nocopsysdel; 
oees } If a delete-before-write operation is requested, delete this file now 
0864 If .copy Ccopy$v_q_replace) 
0866 BEGIN 
+444 BIND 
868 ent = out_ctx ([rtlictx$a_ent_address] : $ref_bblock; 
0869 S$debug_print_fao (‘deleting previous copy of ‘"!AF’" 
0870 .out_filb Cfilb$t_result_name_len], out_filb Cfilb$t_result_name 
0871 $logic_check (2, (NOT .out_ctx Crtlictx$v_typ_protected]), 179); ! Must be able to delete 
087 ent (rfilent$b_type aytes = rtllent$m_typ_emp tj ! It is gone 
-volb, .out_ctx CrtTictx l_seg_number]); ! Write the directory segment 
bate F cory copy$v_q_logJ 
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0873 4 exch$rt11_dirseg_put 

4 i Ccopysv 
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ne Sexch_signal (exch$_deleteprev., 2, .out_filb Cfilb$l_result_name_len], out_filb Cfilb$t_result_n 


~ 


: otherwise remember that we have some extra work to do when we close the file 


LSE 
out_filb Cfilb$v_delete_previous] = true; 
END; 
: Reset the rest of the block to nulls, nothing carries over from before 


G0 Od Od C9 Cd OD CD CO 
ODONAOULSWN OO 


CHSFILL (0, rtlictx$k_end_zero - rtilctx$k_start_zero, ! Set rest of block to nulls 
-out_Ctx * rtlictx$k_start_zero); 


890 
4 ! If a /ALLOCATION qualifier has been seen, use that value. 1f BLOCKS ends up with the value 0, then 
4 we will get the largest area on the volume. 
$s blocks ght -inp_filb Cfilb$l_q_allocation] NEQ 0 EY spec tf ted on the input 
. en 
38 -inp_filb Cfilb$l_q_allocation) ' use that quantity 
9 ELSE ; otherwise 


copy Ccopy$l_q_allocation]); use the quantity from the output 


out_filb Cfilb$l_q_allocation] = .blocks; ! Save the value so that we can look at it during the close 
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v04-000 exchSrtii_create file 12786871382 93 :39505 LEXCHNG-SRe EXCRT11.832;1 ni 3 
: 1 M § 1 Make sure that the record format in the filb is correct 
; \3 H ¢ exch$cmd_fetch_recfmt_implied (.out_filb, .rfp Cnam$l_type]+1); ! Pass it the type from the parse 
; 18 $ } Save the addresses of our routines for this volume and record format. 
: 818 908 2 out_filb [filb$a_close_routine] = exch$rt11_close_file; 
; 819 909 out_filb [filb$a-deleté_routine] = exch$rtiT_delete_file; 
3 0 910 out_filb Lfilb$a_get_routine) = 0; 
; 4 1 at) out _filb CfilbSa_put_routine] = exch$pdp_put; 
3 ° 5 0318 Carriage control doesn't mean anything for RT-11 output, tell him we are ignoring 
: 825 0915 2 IF .inp_filb Cfilb$v_cctl_explicit) 
; H : ba19 ” t_filb Cfilb$ tl lLicit] 
3 -Ou vicctl_explic 
: B98 0918 5 THEN. ~ oe 
; o¢? 34h Sexch_signal (exch$_nocarriage); 
3 es +4 1 physical = false; ! Assume not using physical transfers 
3 B38 44 § : For RT-11 we can treat block transfer mode as fixed 512, physical 
; 839 0925 iF .out_filb Cfilb$b_transfer_mode] EQL filb$k_xfrm_block 
; 839 88 7 -inp_filb Cfilb$b_transfer_mode] EQL filb$k_xfrm_block 
> 838 928 THEN 
; 839 0929 BEGIN 
; 840 0930 physical = true 
{3 841 0931 out_filb Ctilbsb_rec_ format = filbSk_rfmt_fixed; 
3; 84 bass out_filb Cfilb$l_fixed_len] = 512; 
: Be 0934 ng. 
3 Be gage : If an explicit record format was given on the input but none on the output, carry the input to the output 
: Pd $339 if .inp_filb Cfilb$v_rfmt explicit] ! The input file has explicit format 
3 744 $338 AND TNOT .out_filB CfilbSv_rfmt_explicit]) |! but the output has implied record format 
: 850 0940 BEG! 
; o2! 0941 out_filb Cfilb$b_rec_format] = .inp_filb bf it bsb_coc format: 
: 26 R286 out_filb Cfilb$l_fixed_len] = .inp_filb Cfilb$l_fixed_lenj; 
: Bes 09c4 : 
: $22 Boee : In some circumstances we can do block mode 1/0 rather than record mode 
; B39 0909 if (.inp_filb Cfilb$b_transfer_mode] by, filb$Sk_xfrm_automatic ! Both input and output must be automatic tr 
3 835 re AND Tout_filb Cfilb$b_tranSfer_mode] EQL filb$k_xfrm_automatic) 
; 950 ( NOT (.inp_filb filb$v rfmt_explicit] ' Both the input and output files must have 
; He 83) OR .out_filb CfilbSv_rfmt_explicitl)) ! implied record formats 
; 68 988 (,inp_namb Cnam Sb_vol_ format) EQL volbSk_vfmt_rt11 ! The input must be RT-11 
3 : 328 nee OR Tinp_namb Cnamb$b_vol_format) EQL volb$k_Vfmt_dos11) ! or DOS-11 
; 996 BEGIN 
; 95 inp_filb bf} LbSbrec forma 2s {ibSk_rfat_ fixed: 
3 0958 inp_filb Cfilb$l_fixed_len = 512; 
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ne ent C(rtllent$v_typ_protected] = .inp_ctx (rtlictx$v_typ_protected]; 


Get the date into RT11 format 
exch$rt11_format_current_date (ent); 
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: Convert the file name to radix 50 and store in the entry 


exch$util_radix50_from_ascii (.nam_len, .rfp Cnam$l_name], 
relletxss gxp_nane. ent ECrtilent$l_filename]); 
exch$util_radix50_from_ascii (.typ_len-1, .rfp Cnasee type +1, 
rtlictx 


ab a a a 


oooo°oo°o 
od a oo 


S_exp_type, ent (rtilent$w_filetype]); 
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oxch&rtil_create. file ' 12280-1382 9333938 EXCHNG. SROJEXCRT11 .B 3251 — 3 
959 out_filb Cfilb$b_rec_format] = {1 \beh rte fined; 
960 out _filb Cfilb$l_fixed_len = 512; 
303 END; 
0968 : A block request of zero means grab the largest space on the volume. Let's see if we can determine the exa 
Soce } block count we will need. 
96 IF .blocks EQL 0 
boc8 ane hysical ! Physi fi 
«physica ! k 
0369 on”? y ysical works fine 
444 3 e (,inp_filb Cfilb$b_rec_format] EQL filbSk_rfmt_fixed) ! If both input and output a 
Oer7 3 (.out_filb Cfilb$Sb_rec_format] EQL filb$k_rfmt_fixed) ! fixed-record files and th 
348) ; (,inp_filb Cfilb$l_fixed_len] EQL .out_filb Cfilb$l_fixed_len]) ! record lengths are identi 
0977 
944 ; blocks = .inp_filb Cfilb$l_block_count]; 
464 2 } Get some empty area on the volume 
4 i if NOT (status = exch$rtacp_find_empty_area (.out_ctx, .blocks, .copy Ccopy$l_q_start_block])) 
9444 RETURN .status; 
34-43 Set the entry up as a tentative file 
0988 2 ent = -out_ctx C(rtlictx$a_ent_address]; ! Get the entry pointer into a place where we can us 
3444 § ent C[rtilent$b_type_byte] = rfllent$m_typ_tentative; ! Tentative entry 
0991 2 ! Set the protection attribute of the file. If specified, use that value. Otherwise, if input file is RT-1 
bee 3 use the attribute of the input. 
Boos ; LF copy Ccopy$v_q_protect_explicit] ! If /PROTECT or /NOPROTECT was explicitly specified 
09 ent (rtilent$v_t rotected] = .copy Ccopy$v rotect] 
0997 2 ELSE -*yYP_p py Pyev_q.p 
0998 BEGIN 
644 ; Hag, matte NEQ 0 
44 ; i -inp_ctx Crtlictx$b_type] EQL exchblk$Sk_rtlictx ! Input must also be RT-11 
| 
| 
| 
| 
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v04-000 . 12280 8= 188s 93: ve 36 


exch$rtli_create_file 2:29:07 EXCHNG.SRC EXCRYI -832;1 


———— ee 


-PSECT EXCHSRT11_PLIT,NOWRT,2 
44 41 42 2E 00000 P.AAA: .ASCII \.BAD\ : 
~-EXTRN EXCHS_NOCOPBAD, EXCHS$_NOCOPSAMDEV 


TEXTRN EXCHS-NOCOPDUP, EXCHS$~NOCOPPROT 
-EXTRN EXCH$ NOCOPNODEL 


; ¥ § 1 16 ; 
; 4 f ! if Now force the modified entry to disk ; 
: 929 1019 exch$rt11 sdinseg pt (.volb, .out ctx Crtlictx$l_seg_number]); ; 
; oan + 9 CHSMOVE (FtilentSk_length, .ent, out ctx Crtlictx$t_entry]); ! Put a fresh copy into the context block : 
; 938 18 § : Define a record stream for this file : 
: 934 1024 out_ctx Crtlictx$l_cur_byte] = 0; ; Context " Ay first byte in : 
; 935 1025 out_ctx Ertlictx$l_cur_b <r = .out_ctx (rtlictx$l_start -plock];, e first blosk “et the file ‘ 
; 936 1026 out_ctx Ertilctx$l-eof_block = out “ctx Crtlictx$lostart_block a ste “Crtlictx$u. blocks] = 1; ‘ 
3; 957 1027 out_filb Cfilb$a_record = 0; ! No valid record or Length : 
; 835 1° 3 out_filb Cfilb$l>record_len) = 0; ‘ 
; Bet ee : Expand the radix-50 filename into the standard ascii text fields ; 
; 34 1032 exch$rt11_expand_filename (.out_ctx); ; 
; ace 1O3e H Clear all the flags except the ones we want by writing the masks into the longword ; 
: 946 1036 ; out_ctx Crtlictx$l_flags] = rtlictx$m_stream_active ! A record stream is currently active ; 
3 oh ee OR rtilctx$m_output_file; ! and it is an output file : 
: 949 1039 2! Set up the i/o and record buffer : 
; 950 1040 ! : 
s Poi 1041 IF .out_ctx (rtlictx$a_buffer] EQ. 0 ; 
3 226 10s6 THEN : 
3 327 oh out_ctx CrtlictxSa_buffer] = exch$Sutil_vm_allocate (ctx$k_buffer_length); 

: Bae ivez § ; Set the block pointers to the chunk we are ready to write (i.e. nothing, ‘cuz we've done no puts) 

: 957 1047 2 blocks = MINU (.out_ctx Ys heey, -blocks], ctx$k_buffer_blocks); 

: 958 1048 2 out_ctx rtlictx$l _Buf_base_block]-= .out_ctx CrtTictx$l-start_block]; 

; 959 1049 2 out_ctx Ertlictx$l_buf_high_block]) = .out_ctx Crtiictx$l-start picky + blocks - 1; 

; +4 1939 § out_ctx Crtlictx$l-high_block “writtend = Tout_ctx Crtilctx$l_start_block] - 1; 

: 962 1936 2 Slogic_check (3, (exch$rtacp_verify_directory (.volb)), 189); 

> 9635 1053 2 

: 964 1054 2 RETURN true; 

: 965 1055 1 END; 
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15 
EXCHSRT11 RT11_ file and directory routines 16-Sep-1984 03:36:37 pr Bliss-32 V4.0-742 Page 20 
v04-000 exch$rtli_create_file 14-Sep-1984 12:29:07 EXCHNG.SRCJEXCRT11.832; 1 (7) | 
09 20. AE 108 BLBS_ STATUS, 4 : ; 
SA AG 04 BA A ; 15 MOVC3 (R10), @4(R10), 90(R6) : 766 : 
032A 31 0011 BRW 368 : i: : 
14 AE B AG 9E 00115 48 MOVAB 4%43(R6), 20(SP) > 0773 ; 
4 gE 0 8F 8A OO1IA BICB2 #128, 20(SP) : ; 
A F AE 9A OO11F MOVZBL RED#59, TOT_LEN : 0774 : 
: AE pd 123 PUSHL RFP+ : : 0775 : 
7 63 AE 9A o1 6 MOVZBL RFEP+59, =-(SP) : : 
000000006 EF 9 EB 12A CALLS 2, EXCHSPDP_FILTER_F ILENAME : : 
SF AE 90 00131 MOVE RO, RFP+59 : : 
5 SF AE «(9A 00135 MOVZBL RFP+59, RO ; 0776 : 
06 3 91 00139 CMPB RQ. #6 : : 
1B 0013C¢ BLEQU «5 : ; 
50 06 DO 0013E MOVL #6, RO ; : 
1C = AE DO 00141 5$ MOVL RO, NAM_LEN ; ; 
1C AE 3A D4 00145 CPL TOT_LEN; NAM_LEN : 0777 : 
14 «BE 80 BF 88 00148 BISB2 #128, a20(SP) : 0779 : 
SA 60 AE 9A 00150 6$ MOVZBL RFP+60, TOT_LEN : 0781 : 
7E 74 AE 91 C1 00154 ADDL3 #1, RFP+80,~-(SP) ; 0782 : 
7E 64 AE 9A 00159 MOVZBL RFP+60, -(SP) : ; 
6— 07 Boi ee DECL P) : ‘ 
000000006 EF 02 FB OO15F CALLS #2, EXCHSPDP_FILTER_FILENAME ; : 
60 AE 0 01 81 00166 ADDB3 #1, RO, RFP+80 : : 
50 60 AE 9A 00168 MOVZBL RFP+60, RO > 0783 : 
04 50 91 OO16F CMPB , #4 : : 
0 1B 00172 BLEQU ; : 
50 4 D0 00174 MOVL ; : 
18 AE 50 DO 00177 7$ MOVL RO, TYP_LEN ; : 
18 AE 3A D} 00178 CPL TOT_LEN? TYP_LEN > 0784 : 
14 BE 80 8F 88 00181 BISB2 #128, a20(SP) : 0786 : 
5A 1c AE 18 AE C1 00186 8$ ADDL3 TYP_LEN, NAM_LEN, TOT_LEN : 0788 : 
50 6E 00000065 8F C1 0018C ADDL3 #10T, (SP) : 0789 : 
3A AG 60 A C1 00194 ADDL3 TOT LEN, (RO), 58(R6) : : 
00000100 =F 3A A D1 00199 CPL 58(R6), #256 : 0790 : 
7E AS 6 8F ODA SIAS MOVZBL #164, -(SP) ; 
1 DD OO1A7 PUSHL # ; 
000000006 8F DD 001A9 #EXCHS_BADLOGIC ; 
000000006 00 3 FB OO1AF CALLS #3, LIBSSTOP ; 
Oc AE 0100 8F 3¢ 186 9S: MOViwe #256, 12(SP) : 0791 
10 AE A A6 1BC MOVAB  90(R6), 16(SP) : 0793 
08 AE 10 AE 00 001C1 VL Vc sP) 8(SP) ; | 
rE 04 Ae oooooes BF C1 OOICE ADDL ALE aR ae ir) 
Oc AE 00 9E a 9E 5 O10? movcS a(sPS+, a(SP)+, #0, 12(SP), a8(SP) | 
5 18 001DF BGEQ 10 ; | 
Me 08 Re me OlED ADDL? wisps; tsp) Set 
7E nn GE 00000065 F c| TED ADDL #101, (sp) =(SP) | 
Oc AE 00 70 ~«~+BE ic AE SE 1F9 MOVCS NAM_LEN, @RFP+76, #0, 12(SP), a8(SP) | 
4 8 203 BGEQ 10$ 3 
08 AE 1c (AE OC 0 ADDL2 NAM_LEN, 8(SP) ; 
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EXCHSRT11 RT11 file and directo ti 16-Sep-1984 01:14:37 AX-11 Bliss-32 V4.0-74 E) 
v04-000 exch$rtil_create file. 1o2808-138e 93:35:05 HeXChnc gaedexertti asec Page 3 vl 
C AE 1¢ «(AE OC A SUBL2 NAM_LEN, 12(SP) : ; 
Oc AE 00 % BE F AE sé or MOvCS TYPTLEN, @RFP+80, #0, 12(SP), a8(SP) : : 
18 AE 00 0000" CF m bt 2D 00219 10$:  CMPCS #4, P.AAA, #0, TYP_LEN, @RFP+80 + 0797 : 
a ; BNEQ 128 : : 
1F 6C AB f BBS #, 108(R11), 11$ : 0800 | : 
1A 6C AB . 2 A BBS We 108(R11). i1$ : : 
30 04 A 0000006 f ch F ADDL3 #108, 4(SP) «RO + 0802 : 
51 04 AE 0000006C BF C1 ¢ ADDL3 #108, 4(SP), R1 : : 
08 : 2 £1 0 4 BBC #2, (R1), 12$ : : 
0 000000006 &F i 0 49 11$: OVL #EXCHS_NOCOPBAD, RO + 0804 : 
16 BE 40 ef A 00251 12$:  BICB2 #64, a20(SP) > 0811 : 
A DD 00256 PUSHL fT + 0812 : 
51 04 AE 00000065 er cI 0 38 ADDS #0T, 4 (SP), R1 ; : 
5A AD 9F 00263 PUSHAB 90(RO) ; : 
57 DD 00268 PUSHL R ; : 
00000000G_ EF 3 4 Bsga CALLS #3, EXCHSRTACP_FIND_FILE 3 ° 
03 0 § 0271 BLBS RO. 13$ : : 
0008 31 00274 BRW 4 : ; 
5 20 As DO 00277 13$: = MOVL 2(RB), R2 + 0820 : 
13 12 00278 BNEQ : : 
7E D1 8F 9A 00270 MOVZBL #209, -(SP) : : 
01 0D 00281 PUSHL # : 
000000006 8F DD 00283 PUSHL HEXCHS BADLOGIC : 
000000006 00 03 FB 00289 CALLS #3, LIBSSTOP : 
F4 BF OA A2 9100290 14%:  CMPB 10(R2), #244 + 0824 
1E 12 00 95 BNEQ 16$ : 
7E «A? 7E Ag D1 00297 CMPL  126(R2), 126(R7) : 0830 
17 12 0029¢ BNEQ 16$ ; 
OA 6C AB 01 £0 00 3 BBS #1, 108(R11), 15$ + 0832 
05 6C AB 02 : O2A BBS He 108(R11). 15$ : 
30 ad O2A8 TSTB  48(R9) > 0834 
08 18 002AB BGEQ 16$ : 
50 000000006 8F ty 0 AD 15$: OVL #EXCHS_NOCOPSAMDEV, RO ; 0836 
43 AT 3 0 BS 16$: TSTB  67(R7) > 0840 
08 1 B38 BEQL =i'17$ ; 
50 000000006 8F i 0 BA MOVL #EXCHS_NOCOPDUP, RO ; 0842 
39° AT 3 ° ce 17$:  TSTB  5S7(R7) > 0844 
08 1 ¢ BGEQ 18$ ; 
50 000000006 8F Bo 0 c? ROVL #EXCHS_NOCOPPROT, RO ; 0846 
08 30 Ad 02 EO 6 CF 18%: BBS #2, 48(R9), 198 > 0848 
50 000000006 8F BO D4 MOVL #EXCHS_NOCOPNODEL, RO ; 0850 
OCAC 8F 3E 4 81 t 19$: cHPw $3(R7), #3244 0852 
50 000000006 oF 06 EA ROVL #EXCHS_NOCOPBADDEL, RO 3 0854 
7ABB OB 3 OAT 81 EC 208: CMPW 2(R7), #31419 > 0856 
Op 2 re BNEQ 1$ : 
08 31. Ad 1 €£ F BBS #1, 49(R9), 218 > 0858 


15 
EXCHSRT11 RT11_ file and directory routines 18-se 
v04-000 exch$rtili_create_file 14-Se 
50 00000000G &F be fe 
30 ad 95 1 218: 
47 1 
39 A? 9 
) 
7E B3 F OA B 
1 OD OF 
00000000G 8F DD 11 
000000006 9° ; Fe 17 
0 7E A? OD 1E 228: 
01 AO 06 90 8 
76 A? OD 
04 AE ODD 00 
O000vV CF 8 FB 0032C 
1C 30 =6A9 E1 00331 
10 AE 0D 00336 
3A ag DD 00339 
02 DD 0033C 
00000000G 8F DD 0033E 
000000006 00 04 FB 00344 
Fs 11 00348 
14 BE 40 F 56 034D t+ 
0066 8F 00 6E 00 2c O28 4$: 
1C A? 035 
2D «AB 03 Bosee 
06 1 o3 E 
5A 2D AB DO 00360 
04 11 00364 
SA 24 AY DO 00366 $28: 
2D Ab 5A DO 0036A 26S: 
53 74 AE 9 C1 0036 
3 DD 0037 
56 DD 0037 
00000000G_ EF 02 FB 00377 
4A 6 FA99 CF 9E O037E 
4E Ab 0000v CF 9E 00384 
A6 04 tes 
56 A6 000000006 fr 43 0380 
05 2B AB 1 £0 00395 
0D 14 ~«=2-BE 1 E1 QO39A 
00000000G 8F ODD S OF 27%: 
000000006 00 1 FB AS 
0 pS AC 28$: 
01 29s Ab } A 
08 1 B 
01 29 «=6A8 O91 B 
e 1 B8 
50 1 BA 29%: 
$8 A6 2 BD 
A6é 0200 , C1 
Oe B As €9 C7 30$: 
A 4 8 3 CB 
$8 A6 8 A CF 
A6 A 3 D4 
9 A D9 31% 
2D 1 oc 


:37 AX-11 Bliss-32 V4.0-742 Page 30 
fie rte a Te ct et oe oe 
WEXCHS_NOCOPSYSDEL, RO : 0860 
ie ; 0864 
(R7) + 0871 
e 3 
HI 9, =(SP) : 
#EXCHS_BADLOGIC : 
8 LIBSSTOP : 
126(R7), R + 0872 
#2, 1(RO) : 
118(R7) + 0873 
4 (SP) : 
ue. EXCHSRT11_DIRSEG_PUT ; 
#3. 48(R9), 228 : 0874 
1e(sP) + 0876 
Name : 
WEXCHS$_DELETEPREV : 
#4, LISSSIGNAL 3 
3; 0864 
#64, @20(SP) + 0882 
#0, (SP), #0, #102, 28(R7) + 0889 
45 (RB) + 0894 
25$ ; 
45(RB), BLOCKS + 0896 
6(R9), Locks : 0898 
BLOCKS, 45(R6) : 0900 
#1, RFP+80, R3 + 0904 
: | 
#2, EXCHSCMD_FETCH_RECFMT_IMPLIED : 
EXCHSRT11_CLOSE FICE, 74(R6) : 0908 
XCHSRT11_DELETE_FILE, 78(R6) : 0909 
2(R6) + 0910 
EXCHS$PDP_PUT, 86(R6) : 0911 
#1, 43(RB), 27S : 0915 
wi. 320(SPS 28$ : 0917 
#EXCHS_NOCARRIAGE : 0919 
#1, LIBSSIGNAL : 
PHYSICAL : 0921 
41(R6), #1 : 0925 
298 3 
41(R8), #1 : 0927 
30$ 3 
#1, PHYSICAL > 0930 
#2. 40(R6) : 0931 
#512, 53(R6) : 09 é 
43(R8), 31$ : 09 
a20(sP§, 31$ : 09 
40(RB), 40(R6) : 0941 
53(R8). 53(R6) : 094 
34ir ) : 094 
33$ : 
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1 1 Stare ROUTINE exch$rtl1_delete_file (filb : Sref_bblock) = ZSBTTL ‘exch$rtli_delete_file (filb)' 


FUNCTIONAL DESCRIPTION: 


ao 


UAW —O Oo 


Perform RT-11 volume specific delete precesssn - This is only used to delete output files which we 
have created, but decide to delete. for example, if the input file were totally unreadable we might 
delete the output file. 


INPUT/OUTPUT: 


£55 


BE 
ir 
i 
i 
i 
i 
i 
i 
i 
' 
3 filb = pointer to block describing the file 
$99 ! IMPLICIT INPUTS: 
071 : 
O76 : none 
07 : 
ore OUTPUTS: 
O79 : filb - receive info pertaining to the file to be deleted 
078 ! IMPLICIT OUTPUTS: 
079 ! 
080 : none 
081 ! 
oes ROUTINE VALUE: 
Oge : true if able to delete the file, false otherwise 
086 ' SIDE EFFECTS: 
087 : 
088 ! none 
089 leo 
090 
34 $Sdbgtrc_prefix (‘exch$rt11_delete_file> '); 
698 LOCAL 
094 status 
095 3 
096 
097 BIND 
098 ctx = filb Cfilb$a_context] : $ref_bblock, 
099 namb = filb (filb$a_assoc_namb : $ref_bblock, 
volb = filb Cfilb$a_assoc_volb : $ref_bblock 


$debug_print_lit (‘entry"); 

Sblock_check (2, .filb, filb, 560); 

Sblock=check (2, .ctx, rtilctx, 561); 

S$logic_check (5, (.ctx [rtiictx$v_output_file]), 149); 

Not much to do, simply leave the file marked as tentative 


ctx Crtiictx$l_flags) = 0; 


a ec ce ce ce em ce ee em ee ee ee ee ee ee ee ee ee a a ed aed ed = od dd 
ae ed ed ed a 
SsSssSescs 
UPWN Oo 
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5 ! GLOBAL ROUTINE exch$rt11_dircache_exit shanfier sstetus ZSBTTL pozengrett. dircache_exit_handler (status, vol 
fr) 


poof olololololololololo) 
UEWN— 


OOoooocooo 
SESESIT MOSSE R ETO Ee 


S 


Wn 


& 


w 
AEA © OONAUES WN $$ O OONAULS WN OV ONAUS WN OOOO 


Ses 


DPRELXAP_AXPD PAs & Be BS BE BE NIAAA III POPINIPOPINUNIND) 2 SS 


SSNS 
NOULSWN OO 
UPWN—OOCOnN 


SOOQOCooooeooo 
“Sse 


wm 


a a ee ee ee ee a ee ee a ee ee ee a Se a ee ee a ed de 
ee ee a ee ce a a ce ee a a ee ee me a ce el ee ee el ee a a ee ee ee ee ee ed ee 
ee ee ee ce ee ee ee a ee el a ee ee ee ee ee ce ee a a ee a ee ee el el cl ce cee ec ee ee ed 


BH PAA AHIGIPINININPIPDNININIAININININPININININD 


$Sref_bblock) : NOVA 


_ 
7 FUNCTIONAL DESCRIPTION: 
Flush the write cache on the directory. 
INPUTS: 


status - getater to status code 
volb = pointer to volb which has been connected to the RT-11 device 


i 

i 

i 

i 

i 

i 

i 

IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 

none 

ROUTINE VALUE: 

none 

SIDE EFFECTS: 

he any modified directory segments will be written 


$Sdbgtrc_prefix ('rtll_dircache_exit_handler> '); 
BIND 


fab = volb Cvolb$a_fab] : gret bblock, 
rab = volb Cvolb$a_rab) : $ref_bblock 


$trace_print_fao (‘entry - volb !XL, dircache !XL*, .volb, .volb Cvolb$l_dircache]); 
If there are any modified segments signal and flush 
if vob Cvolb$l_dircache] NEQ volb$m_dircache_active 


BEGIN 
: Tell we are flushing the directory of a slow device, it might be a while before it finishes 
iF gvote Cvolb$l_devtype] EQL dt$_tu5S8 ' If it is any kind of TUS8 

BEGIN 

LOCAL 


msgvec : VECTOR (5, LONG), 
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pucairatl ftreache anit. bonito (status, volb) 12-8001 382 93:39:35 LEXCHNG. SRE EXERYTi B5oe1 — (3 


1128 : status; ; 
1174 4 ! We use the Sputmsg service to print this message. If we signalled it, we could exit the image if ; 
1175 4 ' another signal vat active in the catch-all onditien nendler. This is extrenel Likely to Ripper ‘ 
1128 & ; if — to rol/Y was hit during a command with a /LOG in effect, since the catch-all handler ends > 
a 4 ? ; up printing EXCHANGE log messages. ‘ 
179 msgvec 0} = 4; F 
1180 4 msgvec = exch$_writecache; . 
1181 4 msgvec § = 2; 3 
11 < 4 msgvec = .volb Cvolb$l_vol_ident_len]; ; 
11 4 msgvec (4) = volb Cvolb$t_Vol_Tdent]; : 
13 : ? ca status = Sputmsg (msgvec=msgvec)) : 
1186 4 h_si ‘ ; : 
1187 = -Signal_stop (.status) 
iS It is possible that 1/0 is active (likely if the device is a TU58), so wait for it to complete 
1191 4 if NOT (status = Swait (rab = .rab)) 
1138 exch$util_file_error (exch$_waiterr, .status, .fab, .rab Crab$l_stv]); 
1132 Call the normal cache stop routine 
1197 exch$rt11_dircache_stop (.volb); 
i 
44 RETURN; 
1202 1 END; 
-EXTRN EXCHS$_WRITECACHE 
-EXTRN SYSSPOTMSG, LIBS$STOP 
-EXTRN SYSSWAIT, EXCHS_WAITERR 
000¢ 00000 .ENTRY EXCHSRT11_DIRCACHE_EXIT_HANDLER, Save R2.R3 ; 1115 
4 14 C€ Bo bg SUBL2 #2 $ 
5 08 AC D 999 MOVL OLB, R3 > 1153 
01 50 A3 D1 00009 CMPL o(r3), #1 : 1161 
68 13 00000 BEQL : 
OE 3¢ A f bor CMPL 60(R3), #14 : 1167 
\3 BNEQ 3 
6E 4 D 1 MOVL #4, MSGVEC : 1179 
04 AE 000000006 F D 18 MOVL #EXCHS tH atta MSGVEC+4 : 1180 
08 AE D MOVL #2, MSGVEC+ 3: 1181 
OC AE 65 A 4 MOVL  104(R3), MSGVEC+1 211 : 
10 AE 69 A E 9 MOVAB 105(R3), MSGVEC+1 s 11 
7E C CLRQ (SP) s 11 
7E . CLRL -(SP) : 
OC AE OF PUSHAB Bs6vEC 3 
000000006 0 4 Fe CALLS #4, SYSSPUTMSG 3 
A 9 E C LBS STATUS, ; 
DD ; F PUSHL STATUS : 1186 
000000006 00 1 FB 41 CALLS #1, LIBSSTOP ; 


N 1 

EXCHSRT11 RT11_ file and directory routines 16°$ 

vee sasttratltireasbe aot handler (status, volb) 12: -$ 
04 4 

52 14 A3 00 rk 1$ 
DD 4D 
neue ° ‘a 00 F 4F 
4 AC D 6 
E 3 A 
15 Ac 00 D 
AS DD 069 
AC DO 6 
000000006 8F DD 00066 
00000000G_ EF o FB 0006 

3 DD 00073 2$: 
0000v CF 01 FB 0007 

04 0007A 3$: 


; Routine Size: 123 bytes, Routine Base: EXCHSRT11_CODE + 0953 
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exch$rtii_dircache. start (volb) 1 730071 38e 93:35:35 


1 S.c0. ROUTINE exch$rtl1_dircache_start (volb : $ref_bblock) 


44 
i FUNCTIONAL DESCRIPTION: 

Set up the write cache on the directory. 
INPUTS: 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
error conditions will be signaled 


$dbgtrc_prefix ('rt11l_dircache_start> '); 


LOCAL 
status 


$block check (2, .volb, volb, 461) 


ee Bliss-32 V4.0-742 Page 38 
EXCHNG.SRCJEXCRT11.832;1 (10) 


: NOVALUE = parte ‘exch$rtli_dircache_s 


volb = pointer to volb which has been connected to the RT-11 device 


$Slogic_check (2, (.volb volb$v_write]), 203); ! We shouldn't get this far if we aren't supposed to write t 


If global caching is in effect, ignore this call 
IF .exch$a_gbl Cexcg$v_q_cache] 
RETURN; 
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v04-000 exch$rtll_dircache start (volb) 1n8ep- 1984 2:29:07 LEXCHNG’SRESERERTTI -B52-1 47) 
: 1188 : I } Check some conditions before we proceed 
: 116 1 Strace_ rint_fao ("entry - volb !XL", .volb); 
; 1163 1 28 Slogicncheck (4, (exch$rtacp verify_directory (.volb)), 90H): 
>; 1168 1254 Slogic_check (2, (NOT .volb Cvolb$v_dircache actived). 151); ! If it is already on we are confused 
> 1169 L 1255 Slogic “check (4, (volb$m_dircache active EQL~1), 132): 
: of) all Ssgumpt ion 32 verified during compilation 
: 1171 1583 ' Engage directory write caching. Clear all 31 segment flags and activate caching by putting a 1 in the 
: 1176 : 28 } caching longword 
: Vee ! rs volb Cvolb$l_dircache] = volb$m_dircache_active; 
3 1178 1566 Declare an exit handler, so that we can flush the cache if the image is run down 
: 1178 1264 Slogic_check (1, (.exch$a_gbl renga om reet es EQL 0), 313); ! There had better not be on 
; 1179 1265 exch$a_gbl Cexcg$a_exh_routine = exch$rt11_dircache_exit_handler; ! Routine to flush the cache 
; 1180 1266 § exch$a_gbl Lexcg$l_exh_arg Hie - 23 ! Status and volb 
>; 1181 1267 exch$a_gbl Cexcg$a_exh_status = exch$a_gbl Cexcg$l_exh_condvalul; ! Address to store status 
: 1188 1508 2 exch$a_gbl Cexcg$a_exh_volbJ = .volb; ! Pass address of volb 
; BY + 1500 é gg (status = $dclexh (desblk=exch$a_gbl Cexcg$r_exit_block])) 
: 1186 127e : Sexch_signal_stop (.status); 
3 1187 1273 2 
; 1188 1274 2 RETURN; 
>; 1189 1275 1 END; 


-EXTRN SYSSDCLEXH 


007C 00000 eENTRY ami stitutes Save R2,R3,R4,R5,-; 1203 
56 000000006 EF 9E 00002 MOVAB EXCHSA_GBL, R6 : 
55 000000006 8F DO 00009 MOVL #EXCHS"BADLOGIC, RS : 
54 000000006 00 9E 00010 MOVAB LIBS$STOP, R4 : 

53 04 AC 00 00017 MOVL vote RS : 1242 
52 041B00F3 BF b0 0001B MOVL $ #68878579, R2 : 
51 O1cD BF 3C 00022 MOVZWL #461, R1 : 
50 53 DO 00027 OVL R ; 
000000006 EF 16 O002A JSB EXCHSUTIL BLOCK_CHECK ; 

48 A3 5 ee 00030 BBS #5. 72(R3), 1$ + 1243 

7E (CB «OBF OSA 000 5 MOVZBL #203, -(SP5 : 
01 ODD 039 PUSHL #1 BY 
55 DD 900 B PUSHL 5 : 
64 03 FB 00 D CALLS #3, LIBS$STOP : 

00 86 1 £0 00040 1$ BBS #1, SEXCHSA_GBL, 4$ : 1247 
0B 50 AB £9 0045 BLBC =: BO(R3), 2$ > 1254 
7E 83 BF 9A 00049 MOVZBL #131, -(SP) : 

Q1 DD 0040 PUSHL #1 : 
5 DD 0004F PUSHL RS : 
64 03 FB 00051 CALLS #3, LJBSSTOP : 

50. AS 01 »D 0 4 2%: MOVL 3s (R3) : 1260 

50 66 D 8 MOVL EXCHSA_GBL, RO > 1264 
30 AO D 0 B TSTL  48(RO) ; 
0c 13 0005€ BEQL © 3$ : 


40 
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onchOrett sircecke sted (ectes 12=8eb=1382 93:35:35 «HN chnc sae fexceyti a soe oe 13) 


Sh Opal ROUTINE exch$rtll_dircache_stop (volb : Sref_bblock) : NOVALUE = %SBTTL ‘exch$rt11_dircache_stop (vol 


—_ 
~~ 
NO 


1 

127 '¢ 

1599 $i 

' 9 FUNCTIONAL DESCRIPTION: 

: § Clear and flush caches. 

! 2 } INPUTS: 

} $ volb = pointer to volb which has been connected to the RT-11 device 
! 3 } IMPLICIT INPUTS: 

1290 ‘ none 

1291 ! 

1 38 ' OUTPUTS: 

129 ! 

1294 ' none 

1295 ! 

1296 ' IMPLICIT OUTPUTS: 

1297 ! 

1298 ! none 

9.44 ! 

1300 ' ROUTINE VALUE: 

1301 ! 

1308 ! none 

130 § ! 

1304 ' SIDE EFFECTS: 

1305 2! 

1306 2! error conditions will be signaled 
1307 2 !-- 

1308 2 

1393 § $dbgtrc_prefix ('rtll_dircache_stop> '); 
1311 2 Sblock_check (2, .volb, volb, 457); 


F 16 
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v04-000 exch$rtli_dircache_stop (volb) 984 7 EXCHNG.SRCJE $ 


:1 (13) 


3 ! g ! 1 If global caching is in effect, ignore this call 

: 1230 1314 if .exch$a_gbl Cexcg$v_q_cachel 

3; 1231 1315 THEN a =e 

3 : ¢ : 16 RETURN; 

: 1 1318 $trace_print_fao s enery = volb !XL, \reache =," 4 volb, .volb Cvolb$l_dircache]); 

: } ? : 38 Slogic_check (2, (.volb Cvolb$v write : e’ shoulda’ t get this far if we aren't supposed to write t 
: 1237 1321 : Verify that the directory is valid before we allow it to be written. Since a corrupted directory would ha 
: : : : ¢ been write-locked when we mounted, this means that EXCHANGE has corrupted the directory 

; i 40 4 inate shock (0, (exch$rtacp_verify_directory (.volb)), 178); 

: } m4 : § Clear the cache bit so that we will really write, then flush the directory 

5 1264 1328 ait Cvolb$v_dircache active] = 

5 : °F 3 ; exch$rtl1_dirseg_flush (.volb, pea *Evotbst _dircache]); 

: : rt 4 133! Cancel the exit handler which was declared to flush this cache 

: 1545 1338 heave (desblk=exch$a_gbl Cexcg$r_exit_block]); ‘ . 

3 1320 1 See exch$a_gbl Cexcg$a_exh_routine] = 0; ! Mark that no exit handler is active 

: 125¢ 1336 2 RETURN; 

: 125 1337 1 END; 


-EXTRN SYSSCANEXH 


007C 00000 eENTRY SOHNE ST DIRCACHE_STOP, Save R2,R3,R4,R5,- : 1276 | 
56 000000006 00 9€ 00002 MOVAB LIBSSTOP, R6 : 
55 000000006 8F D0 00009 MOVL § #EXCH$_BADLOGIC, RS : 
esac: Ca bast 
52 041B00F3 BF pO 00018 MOVL weaates79,. R2 : 
hd 2) | 
46 09 ae 0000006 FE F8 00080 aps EXCHSY XCHSACCOLT 38 S sane 
48 A3 5 E0 00035 BBS Ay 78R3) | : 1319 
7 AF 8F OA 003A MOVZBL wits 5, -(SP5 : 
1 DD 000 F PUSHL : 
5 DD 004 PUSHL n : 
66 03 FB 04g CALLS , LIBSSTOP : 
DD 00045 1$: PUSHL > 1324 
000000006 EF Qi Fe 0047 CALLS 1. EXCHSRTACP_ VERIFY_DIRECTORY : 
E B2 f oA 3 MOVZBL ie -(SP) : 
6 3 PP 039 CALLS ns IBSSTOP ‘Eee 
50 sg 1 BA 2? 2$ BICB2s#. BOcna) : 1328 
50 A} DD 960 PUSHL ( > 1329 
5 DD 6 PUSHL 3 


cst" 


; Routine Size: 


RTM file and directory routines y$-ep-1964 01:14:57 yatett BLin4=82 v4 0-742. 


OOv CF F 5 CALLS # EXCHSRTI1 DIRSEG FLUSH 
ot 4 8 A tie abe 1Secan nee (SP) 
000000006 : FB CALLS niace § 
4 D MOVL Extn 
30 AO 04 0007. CLRL 
4 00078 3$: RET 


124 bytes, Routine Base: EXCH$RT11_CODE + 0A63 
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1 GLOBAL ROUTINE exch$rt11_dirseg_flush (volb : Sref_bblock, Santti “evenbrett divece Stink tenth, uodt™ 
i : Segnent modified : BITVECTOR L429) se “Y° 


oO 


volb Cvo vdircache, sctivel bit. t bit is set, actual 1/0 will be postponed until flush is 
with the bit clear. 


INPUTS: 


volb = pointer to volb which has been connected to the RT-11 device 
modified_segments - bitvector, set means to write the segment, clear means don't write it 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLIC!T OUTPUTS: 
none 
ROUTINE VALUE: 
true if success, false if failed 
SIDE EFFECTS: 
error conditions will be signaled 


WA NWA AWA. AAA AAAI 


DS DSS DD AA AAA ITU BP PPE EE 


$dbgtrc_prefix (‘rtll_dirseg_flush> '); 


LOCAL 
seg : $ref_bblock, 
status 


BIND 
modified_segments = segment_modified ! map a longword onto the bitvector 


WR 9 OONAOUES UN (OOD NOAUES WN (OVO ONOUS WRC OONOAUES Ww 


WAW AWA WAAANAAAAW AAAI AAAI AWA AW 


COOOo NNN NAN NN 


$trace_print_fao (‘entry - volb !XL, dircache !XL*, .volb, .modified_segments); 
Sblock_ check (2, .volb, volb, 532); 
Assume that all will go well 


SSSLEAE 


1 

1 

BEGIN 
++ 

' 

; FUNCTIONAL DESCRIPTION: 
} Write any dire tory segments which — og godt ted. Whether any actual 1/0 will occur depends on 
' 

i 

i 

i 

i 

i 

i 

‘ 

i 

i 

! 

' 

i 

' 

' 

i 

' 

' 

' 

i 

i 

i 

: 

' 

5 i 

§ : 

' 

é 

: status = true; 


ce ee ee ce ce ee ce ee ce ee ce ee me ee ee ee ce ce ce ce ce ee ee ee DD ce ce ee ce me ee ee ee ee ed ed ee ed od 


WWAAAAAN AAA 


oovono 


wr 


! A quick exit in case nothing has changed 
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v04-000 exch$rtii_dirseg. flush (volb, mod) 1e-8ep- 1384 93:39:07 © FENCING SRedexcryti casos 9 1a) 
; 131 1395 ' 
: i 1§ 1 2 IF .modified_segments EQL 0 ! No directory segments have been modified, nothing to do 
; 1315 1398 RETURN .status; 
£1313 1200 $ ! Find the high 
; ! Fin e segment 
: 1318 1401 : . 4 
: 1319 1208 seg = oxchSrtt}¢irseg_aet (.volb, 1); 
: 1320 140 $logic_check (2, (.seg NEQ 0), F 
; : 21 tr $trace_print_fao ("high segment !UL", .seg C[rt1ihdr$w_high_seg]); 
; ! : 1208 ; Look at each of the bits, writing those that are set 
: 1325 1408 2 INCRU seg_num FROM 1 TO .seg [rt11hdr$w_high_seg] 
: 1326 1409 DO , a 
3; ¥ sf 1410 BEGIN 
3: 1328 1411 $trace_print_fao (‘seg num !UL, modified !UL', .seg_num, .segment_modified [.seg_num]); 
3 1368 alg ; IF_ .segment_modi fied .seg_numd 
3; 1330 141 THEN 
; 1331 1414 4 BEGIN 
.% 3 1415 4 LOCAL ! We will continue if error, but we want to remember the wor. 
; 133 1416 4 temp; 
1338 iia h$rt11_di (.volb ) 
; temp = exch$rt rseg_put (.volb, .seg_num); 
: 1336 1419 4 IF for . temp se ~— i 
3; 1337 1420 4 THEN 
; 1338 1421 & status = .temp; 
3: 1339 14 ¢ 3 END; 
; it 14 § END; 
3 1341 1424 
; 1366 1425 2 RETURN .status; 
3 134 1426 1 END; 


001¢ 00000 .ENTRY EXCHSRT11_DIRSEG_FLUSH, Save R2,R3,R4 : 13 
52 041B00F3 BF 00 00002 MOVL  #68878579> R2 : 1388 
51 0214 8F 3¢ 90009 MOVZWL #532, RI ; 
50 04 AC 00 0000 MOVL  VOLB, RO ; 
000000006 FF 16 0001 JSB EXCHSUTIL_BLOCK_CHECK ; | 
54 1 D0 0001 MOVL #1, STATU > 1392. 
08 AC b 0018 TSTL MOD IF IED_SEGMENTS > 1396 | 
4 1 BEQL 5 ; 
01 Dd 000 PUSHL > 1402 
04 AC DD 000 PUSHL OLB ; 
0000Vv cE Q FB 000 CALLS #2, EXCHSRT11_DIRSEG_GET ; 
2 D0 0002A MOVL RO, SEG ; 
13 12 0002D BNEQ > 1403 
7E D2 BF OA MOVZBL #210, -(SP) ; 
1 0D PUSHL # ; 
000000006 8F 0D PUSHL HEXCHS BADLOGIC ; 
000000006 Q FB CALLS #3, LIGSSTOP ; 
04 A2 3 42 1$: MOV2wL 4(SEG), R3 : 1408 
5 01 D0 0004 MOVL #1, SEG_NUM ; 
17 11 0004 BRB 4$ : 


EXCHSRT11 RT11_ file and directory routines 18-50 son- 138% 9}: ig af AX-11 Bliss-32 V4.0-742 
v04-000 exch$rtli_dirseg_flush (volb, mod) 14-Sep-1 7 EXCHNG. SRCJEXCRT11.832;1 
10 08 Ac 2g E1 48 2$ BC SEG_N aa. SEGMENT_MODIFIED, 3$ 
ne DD pysit | vere 
0000V 5 ; 2 CALLS 1 ve wae. DIRSEG_PUT 
4 D MOVL TEMP, STATUS 
D 3$: INCL SEG_NUM 
53 p 4$: rely os NUM, R3 
50 71 D8 $9 5$: MOVL STATUS, RO 
04 0006A ET 


; Routine Size: 107 bytes, Routine Base: EXCHSRT11_CODE + OADF 


<m 


ee ee ee a a ee et ee a a ee ae ee a ee ec ee ee ee ee ed ad ed 


Be Pe Se Se Se Be Se Be Se Se Ge Se Se Se Fe Fe Se Se Se BH Se Ge Fe SF Se Fe Se Ge Ge Ge Ss Ge Ss Gs Ge Se Ge Se Se Se Ge Se Ge Ss Se Ge FFs Se SFOS Se Shes es 


ES 
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-000 exch$rtll_dirseg_get (volb) 12-808 =1 982 9333938 LEXCHNG SRE EXCRT11.832;1 ¥ (15) 
5 1? ge asc ROUTINE exch$rt1l1_dirseg_get (volb : Sref_bblock, number) = ZSBTTL ‘exch$rtl1_dirseg_get (volb)' 
ri 1059 5 tes 
48 1450 : 
r) 1? 1 FUNCTIONAL DESCRIPTION: 
5 1? § Return a pointer to the requested directory segment 
2g 1435 ! INPUTS 
54 14 $ : 
55 14 ; volb = pointer to volb which has been connected to the RT-11 device 
2$ \? 4 number = directory segment number in the range 1-31 
58 1440 ! IMPLICIT INPUTS: 
59 1441 ' 
0 1208 ! none 
1 144 ‘ 
¢ 1444 ! OUTPUTS: 
1445 : 
1446 ; none 
5 1447 ! 
66 1448 ! IMPLICIT OUTPUTS: 
7 1449 : 
8 1450 ! none 
369 1451 : 
350 1336 ! ROUTINE VALUE: 
71 145 ! 
35 1454 ! address of segment, or 0 if any error 
37 1455 : 
374 1456 ! SIDE EFFECTS: 
375 1457 ! 
376 1458 ! error conditions will be signaled 
377 1459 !e- 
378 1460 
379 1461 S$dbgtrc_prefix ('rtll_dirseg_get> '); 
380 1066 
381 146 LOCAL P 
$68 1464 rtv : $ref_bblock, ' a pointer to the rt11 volb extension 
38 1465 rot : $ref_bblock, ' a pointer to the root directory segment 
$e0 1298 seg : $ref_bblock ! a pointer to the desired segment 
86 1468 
387 1469 $block_check (2, .volb, volb, 453); 
$05 tA $trace_print_fao (" entry - volb 'XL, seg !2UL, dircache !XL", .volb, .mumber, .volb Cvolb$l_dircache)); 
ey 1378 : Get the pointer to our volb extension and to the root segment 
3 1474 rtv = .volb CvolbSa_vfmt speci fi¢d: 
9 1475 Sblock_check (2, .rtv, rfil, oe 
34 1476 rot = Ftv Crti1$t_block_0) + (512°* rt11$k_root_block); 
+] 1028 : We assume that the directory (thru high_seg not num_segs) is present in memory 
358 1339 Slogic_check (2, .rtv Crtl1$v_dir_present], 124); 
400 1483 ! Check the consistency of the root segment. The ro Leutng tests are order-dependent. The BLISS optimizer 
401 14 ! fold them all together into a single signal and return, but if we had all the tests inside a single IF sta 
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v04-000 euchSeett airseg eer (yous) yo-8ee= 138s 93:55:05 = HeXchne SREdexer tt] asec age 185 


: } the optimizer might have executed them in any order it felt Like. 
if  (.rot Crt11hdr$w_num_segs] EQL 0) 


(.rot Crtlihdr$w_num_segs] GTRU 31) 
_, 


GIN 
sezch signal Cexch$_rtll_baddirect, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident)); 


END; 
IF  (.rot Crtlihdr$w_high_seg] EQL 0) 
omme (.rot Crtlihdr$w_high_seg] GTRU .rot Crtiihdr$w_num_segs]) 
BEGIN 
SETCh Signal (exch$_rtll_baddirect, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident)); 


END; 
Vt an (.rot Crtlihdr$w_next_seg] GTRU .rot Crtilhdr$w_high_seg]) 


Oc 


BEGIN 

eexch signal (exch$_rtil_baddirect, 2, .volb Cvolb$l_vol_ident_lenJ, volb Cvolb$t_vol_ident]); 
! The RT-11 Version 4 DUP objects if more than 119 extra words are speci 
! Since strange things can happen (Like directories which can hold < 1 f 
: going to complain if it exceeds this number too. 


if (.rot Crt1ihdr$w_extra_bytes] GTRU 238) 


of in an initialize (/2:120. fails’ 
i 


fi 
ile) if this number is large, we are) 


DWONAOVULSWN —OVONOULSWN—O0® 


MNMRUNNNNNN 2 a 9890882 


THEN 
BEGIN 
pezen signal (exch$_rtll_baddirect, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident]); 


WA 
Wr 


uw 


w 
~ 


END; 
A Crtlihdr$w_extra_bytes] AND 1) NEQ 0) ! It can't be odd either 


BEGIN 
pexch signet (exch$_rtll_baddirect, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident]); 
Do a bounds check on the requested segment 
iF op (.number EQL 0) 
(.number GTRU .rot Crtlihdr$w_high_seg]) 


FP al et et et ae et 
= 
PUPVPULPVPUDVPUSUPVSVST PUSS SUSU SISTINE BE EPP PPP LEE 


WAIAIAI AIPIPOPUPIPINIPUDINIDD 2 9 2  MDOODOOOOOOOOOO0O0000 0000000090000 


WO OONAUS WD 9 OONOUES WIN OO OONAUE WIN 0 OONOUFE Ww" Oo 


BEGIN 
perch signal (exch$_rtl1_baddirect, 2, .volb Cvolb$l_vol_ident_lenJ, volb Cvolb$t_vol_ident)); 


FUNZSSSNSERRGN LS SS 


: Looks good, now compute the desired segment as an offset from the root 
seg = .rot + ((.number-1) * rtl1$k_dirseglen); 


ee Ne a ee ee ee me ek ee ee et ee mk kk a ak ik ad a et et = La = = 2 2 I 1 SS —_ 
me ee ee ek ae ed ed ed od od td 4 2 2s 2 — 9 — 4) — 2 — 9 2d  — 2 4) 9 2 9 8 Ls SY SS 


Be Se ee Se Se Oe Se Be Se Se Be Se Fe Se Se Se Se we Se Se Se Se Se Be FF TH Se Se Gs we Se SESH SH Ge HSE Se SESH Se SESE SE SESE SESE ee SESE Se Se Se Sease 
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EXCHSRT11 and directory routines -$ep-1984 01:14:37 4 P 
V04-000 exchSrtii_dirseg get (volb) 730571982 93:35:05 © FENcrnc Saesexcayti Boost age 48) 
‘ 1028 } re H Now perform some consistency checks on the segment header 

; 146 i 8 if  (.seg Crt11hdrSw_num_segs) NEQ .rot [rt11hdr$w_num_segs)) 

; 1488 ! re (.seg Crtlihdr$w_next_seg] GTRU .rot Crtiihdr$w_high_seg]) 

; 109? : ¢f (.seg Crtlihdr$w_extra_bytes] NEQ .rot (rtilhdr$w_extra_bytes]) 

; 1266 1343 ey ignal (exch$_rt11_baddirect, 2 lb Cvolb$l_vol_id Len] lb Cvolb$ li ] 

3 exch signal ‘exch$_r o €e « t ’ ; 
mye: 1328 aerCh o9 xch$_ _baddirec vo vo _vol_ident_len], vo volb$t_vol_identJ) 

: 1470 1 ¢ 3 

3 1471 1 

: 1one 1554 RETURN .seg; 

3 147 1555 1 END; 


eEXTRN EXCHS$_RT11_BADDIRECT 


007¢ 00000 .ENTRY EXCHSRT11_DIRSEG_GET, Save R2,R3.R4,R5,R6_ 
5¢ 000000006 EF 9E 00002 MOVAB EXCHSUTIL-BLOCK CHECK, R6 : 
5 04 AC DO 00009 MOVL vol R + 1469. 
52 041B00F3 BF b0 000D MOVL #6 878579, R2 : 
51 0ic5) BF 3 (00014 MOVZWL #453, R1 : 
50 53 DO 00019 MOVL R3, R : 
66 16 0001C JSB EXCHSUTIL BLOCK_CHECK : 
54 54 A’ DO OOO1E MOVL 4(R3), RIV : 1474 
52 B80E00FS BF pO 000 MOVL 42012548171, R2 > 1475 | 
51 01¢6 BF 3C 00029 MOVZWL #454, R1 : 
50 4 DO 0002E OVL TV, R : | 
66 16 00031 JSB GXCHSUTIL BLOCK CHECK : 
52 OCOE C4 oF 00 MOVAB 86(R4), ROT : 1476 
1 o¢ AG f 00 LBS 12(RTV), 1 : 1480 | 
7E C 8F 9A 0003C MOVZBL #124, -(SP : 
01 oD 000406 USHL #1 : 
000000006 af DD 0048 PUSHL #EXCHS BADLOGIC : 
000000006 00 FB 0004 CALLS #3, LIBSSTOP ; 
62 BS O004F 1$: TSTw (ROT : 1486 | 
49 13 00051 BEQL : | 
1F 62 } 0045 CMPW (ROT), #31 > 1488 | 
44 1A 096 BGTRU ; 
55 04 A2 3C 0005 MOVZWL 4(ROT), RS + 1494, 
3E 7 9c BEQL  2$ : 
55 é 1 E CMPW = (ROT), _-RS > 1496 
F 6 BLSSU 2 : | 
55 02 A2 B1 00063 CMPW (ROT), RS > 1502. 
33 (1A 067 BGTRU 2$ : 
OOEE 8F 06 A2 BI 9 CMPW (ROT), #238 : 1513 
28 A oF BGTRU 2$ : 
7 06 Ad EB 1 BLBS  6(ROT), 2$ > 1519 
4 08 ac 00 75 MOVL § NUMBER. R4 > 1528. 
1 7 79 BEQL 2$ ; 
55 4 01 00078 CMPL = R4, RS : 1530 
C 1A 0007 BGTRU : 
50 54 OA 78 ASHL #10 R4, RO : 1539 
4 FCOO C042 9E 000 MOVAB -1024(R6)CROTI, SEG : 


3; Routine Size: 


RT11_file and directory routines 
exch$rtll_dirseg_get (volb) 


62 
55 
06 A2 


000000006 00 
50 


186 bytes, 


Routine Base: 


02 
06 


69 
65 
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04 00089 


EXCHSRT11_CODE + OB4A 


Bs Re =138¢ 9}: 3 7 
4=Sep-1984 12:29:07 


AX-11 Bliss-32 V4.0=742 
EXCHNG.SRCJEXCRT11.832;1 


CMPW (SEG), (ROT) 
BNEQ 
CMPW (SEG), R5 


BGTRU 

CMPW (SEG), 
BEQL 

PUSHAB 105(R3) 
PUSHL L 1(R3) 


6(ROT) 


PUSHL 
PUSHL #EXCH$_RT11_BADDIRECT 
CALLS #4, LIBSSIGRAL 


BR 

MOVL SEG, RO 
RET 

CLRL RO 

RET 


EXC 
v04 
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RT11_ file and directory routines 1b-Se -1984 01:14:37 AX-11 Bliss-32 V4.0-742 Page 51. Exe 
exch$rti1_dirseg.get_nochk 14-Sep-19 4 3:35:3 EXCHNG.SRCJEXCRT11.832;1 : (16) | v04 
1228 1 75 ry ROUTINE exch$rt1ll_dirseg_get_nochk (volb : $ref_bblock, number) : jsb_rir2 = ZSBTTL ‘exch$rt11_di. ; ! 
1388 ges | : 1 
1559 ' $1 
1280 FUNCTIONAL DESCRIPTION: : ! 
128¢ Return a pointer to the requested directory segment without any checking . } 
1366 ¢ | INPUTS | :] 
1366 i volb = pointer to volb which has been connected to the RT-11 device eS 
120! number = directory segment number in the range 1-31 | : , 
1569 2 | IMPLICIT INPUTS: : 1 
1570 ' 3 7 
1571 ' none $7 
13%6 2! 3 7 
157 2 ! OUTPUTS: 5 7 
1574 2! 5 7 
1575 2! none 3 7 
1876 2! 3 7 
1577 ! IMPLICIT OUTPUTS: 3: 7 
1578 ! 3 7 
1579 ! none $7 
1580 2! 3 7 
1581 2 ! ROUTINE VALUE: s 7 
1206 e! 5 9 
128? $ address of segment, or 0 if any error : , 
1585 2 | SIDE EFFECTS: 1 
1586 2! 3 3 
1587 2! error conditions will be signaled : 1 
1588 2 !-- , 7 
1589 2 3 7 
1330 g Sdbgtrc_prefix ('rt11_dirseg_get_nochk> '); ; : 
139@ ¢ BIND 37 
1332 § rtv = volb Cvolb$a_vfmt_specific] : $ref_bblock ! a pointer to the rt11 volb extension ; ! 
1595 2 : 31 
1238 § Sdebug_print_lit ('entry'); | : : 
1208 2 Get the pointer to our volb extension and to the root segment, then compute the : I 
1ooN 3 RETURN rtv Crt1i$t_block_0] + (512 * rt11$k_root_block) + ((.mumber-1) * rt11$k_dirseglen); | : } 
. : 1 
- 4 
bai 
52 52 OA 78 00000 EXCHSRT11_DIRSEG_GET_NOCHK:: | 31 
ASHL rio -Ro R2 3 1600 3 1 
52 54 Al CO 0 04 ADDL2 B4(VOLBS, R2 : 3:1 
5 080E g$ 9E 08 MOVAB 062(R2), : $1 
50 5 b 000D MOVL R2, RO ; 31 
05 00010 RSB : 1601 | 3g 1 


=e cece ce OO Oe OC eC OO Oe Ce OC CC CC CC CC SS CS COS SS OO eee 
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EXCHSRT11_CODE + O0C04 


\$ and directory routines 
_dirseg_get_nochk 
17 bytes, Routine Base: 


RT11_ fi 
exch$rt 


Rey 


EXCH 
vives 
; Routine Size: 
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v04-000 exch$rtli_dirseg_put (volb, number ) 1e-8ep-19 4 12:29:07 LEXCHNG SRe EXCRT11.832;1 aac 


35 ROUTINE exch$rt11_dirseg_put (volb : $ref_bblock, number) = ZSBTTL ‘exch$rt11_dirseg_put (volb, 
++ 
FUNCTIONAL DESCRIPTION: 
Write a directory segment back to disk 
INPUTS: 


volb = pointer to volb which has been connected to the RT-11 device 
number = directory segment number in the range 1-31 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
true if success, error code if problem arose 
SIDE EFFECTS: 
error conditions will be signaled 


IWIWAANWporornorereorornory 


WR 0 OBNOAU EWN $0 ODNOUS WN (OD ONAU EWN OO OONOU LW 
Ot at tt tt I I I OOOOOOO 
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ee a a enn eanee | 
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$dbgtrc_prefix ('rtll_dirseg_put> '); 


LOCAL 
bl ! pbn of block to write 
rtv : $ref_bblock, ! a pointer to the rti1 volb extension 
! a pointer to the root directory segment 
ees $ref_bblock, ! a pointer to the desired segment 
status 


Sblock check (2, .yolb, volb, 529); : : 
$trace_print_fao ('* entry = volb !XL seg '2UL, dircache !XL"*, .volb, .number, .volb Cvolb$l_dircache]); 
$Slogic_ check (2, (.volb Cvolb$v_writed), 46); ! We shouldn't get this far if we aren't supposed to write t 


: Get the pointer to our volb extension and to the root segment 


rtv = .volb CvolbSa_vfmt specific]: 

Sorock chest (2, .rtv, rtil, 368): 

rot = rtv rt11$t_block_0J + (512 * rti11$k_root_block); 

We assume that the directory (thru high_seg not num_segs) is present in memory 


$logic_check (2, .rtv (rt11$v_dir_present], 142); 
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EXCHSRT11 RT11_file and directory routines 16-Sep-1984 01:14:37 AX-11 Bliss-32 V4.0-742 Pa 4) 
/ V04-000 exch$rtl1_dirseg_put (voLb, number ) 1228671382 93:39:85 LEXCHNG SRE EXCRT11.832;1 atria) 
79 
0 Do a bounds check on the requested segment | 
s if  (.mumber EQL 0) 
88 "Sse 


(.number GTRU .rot (rti1hdr$w_high_seg)) 
Sexch signal_return (exch$_rtll_baddirect, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident)); 


| 
| 
| 


PAPA APAOSAAO 


Segment number is valid, if caching is on we just set a bit in the cache bitvector 122 interim cache st. 
iF gvotb Cvols%v_dircache_active] 
BEGIN 
BIND 
segbit = volb Cvolb$l_dircache] : BITVECTOR (32); | 
segbit C.number] = true; 
status = true; 
END 


! Caching not active, write the segment immediately 


| 
BEGIN | 
Looks good, now find the address of the desired segment, and the block number 
seg srot + ((.number-1) * rt11$k_dirseglen); 
! 
i 
I 


2*(,mumber-1) + rt11$k_root_Block; 
Now perform some consistency checks on the segment header 
/ (.seg Crtllhdr$w_num_segs] NEQ .rot Crt1ihdr$w_num_segs]) | 
en (.seg Crtiihdr$w_next_seg] GTRU .rot Crtiihdr$w_high_seg]) | 
$exch_signal_return (exch$_rtll_baddirect, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident)) | 
Write the directory segment back to the disk 
status = exch$io_rtll_write (.volb, .blk, 2, .seg); 
If there was an error, we should give them extra warning that quick action can save the file 
it. (NOT .status) 


$exch_signal (exch$_dire_error); 
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7 ! Following expression would print additional information to direct the user as to recovery 
2 08 ! procedures, so that he could save all the information in the volume by using the correct 
4 copy of the directory which is still in memory. 
3 1 ? i gexchSe_gol Cexcg$v_foreign_command]) ! If single command, no hope of recovery, sigh... 
H 18 re cg enh signal (exch$_dire_error) 
3 15 ia $Sexch_signal (exch$_dire_error, 0, exch$_recover); 
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EXCHSRT11 RT11_ file and directory routines st =| 4: AX-11 Oi ies =-32 V4.0-742 Page 56 

v04-000 exch$rtti _dirseg_put (Yolb. ruumber ) 1p o73e8 =) 382 9}: 43 3 EXCHNG. SRC jexcrtii. B32;1 ° 9 

63 B CMPW EG), (ROT) 3; 1691 
$9 if A BNEQ $3 : 

04 A3 02 AS 5 BA CMPW ggSE6). 4(ROT) ; 1693 
14 B BF BLEQU é 

56 5B OD ot} 7$: MOVL R11, TEMP 3 1695 | 

69 AG OF C4 PUSHAB 105(R4) : | 

65 A4 DD G90C7 PUSHL 101(R4) : | 

9¢ DD QOUCA PUSHL # : | 

6 DD 000c¢ PUSHL TEMP : | 

68 9 FB OOOCE CALLS #4, LIBSSIGNAL 3 

50 6 00 000D1 MOVL TEMP, RO 5 

04 Hit RET 3 

55 DD 00005 8$ PUSHL SEG ; 1699 

02 DD 00007 PUSHL #2 : 
52 DD 00009 PUSHL BLK : 
54 DD 00008 PUSHL R4 : 
00000000G EF 04 FB 000DD CALLS #4, EXCHSIO_RT11_WRITE 3 
57 50 DO O00E4 MOVL RO, STATUS g 

09 57 €8 000E7 BLBS TATUS, 9$ 3: 1703 

00000000G 8F DD OOOEA PUSHL #EXCHS$_DIRE_ERROR : 1705 
68 01 FB OOOFO CALLS #1, LIBSSIGRAL ; 

50 57 DO OOOF3 9$: MOVL STATUS, RO 3 1719 

04 O00F6 RET : 1720 


; Routine Size: 247 bytes, Routine Base: EXCH$RT11_CODE + 0C15 
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EXCHSRT11 RT11_ file and directory routines 1bese 1984 01:14:37 AX-11 Bliss-32 V4.0-742 P 57 E 
v04-000 exch$rtll_expand_f Lename (ctx) 1228671382 3:39:05 LEXCHNG. SRE EXCRT11.832;1 29 18) Vv 
sce ROUTINE exch$rt11_expand_filename (ctx : Sref_bblock) = %SBTTL ‘exch$rt11_expand_filename (ctx)' | 
++ 


FUNCTIONAL DESCRIPTION: 


Convert the information in a directory entry to ascii text. This involves changing the RADIX-50 
filename to ASCII and converting the date to ASCII. 


INPUTS: 
ctx = pointer to an rtilctx structure which contains a copy of the directory entry 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
ctx = receives ASCII filename info 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


success or failure if the entry is invalid 
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67 

4 SIDE EFFECTS: 

of error conditions will be signaled 

67 

o? $dbotrc_prefix ('rtll_expand_filename> '); 

67 ' Read-only own 

67 months : VECTOR (13, LONG) INITIAL 

o8 (‘Jan-",'"Feb-",'Mar-','Apr-','May-","Jun-","Jul=-",*Aug-', 'Sep-", 'Oct-", "Nov-", "Dec-','#t#=") 
68 oO 

68 LOCAL 

684 year, 

685 mon, 

686 day, 

687 date_desc : VECTOR (2, LONG), 

688 status, 

689 ch 

690 3 

691 7 

res 4 $Sblock_check (2, .ctx, rtlictx, 452); 

694 7 ! Convert the file name from 2 Radix-50 words to ‘rtilctx$s_exp_name’ ASCII characters, type from 1 R50 word 
044 ; : "RT1ictx$s_exp_type’ chars 

697 7 exch$util radix50_to_ascii (rtlictx$s_exp_name, ctx Crelictx$l_tilename], ctx Crtllctx$t_exp_name]); 
698 7 ch = CHSFIND_CH (FtiTctx$s_exp_name, Ctx Ertiictx$t_exp_name],~' '); 


i 


| 


Create an ASCII representation of the date 


x | 
EXCHSRT11 RT11_file and directory routines 16-Sep-1984 01:14:37 AX=-11 Bliss-32 V4.0-742 Pa 8 EX( 
v04-000 exch$rtll_expand, filename (ctx) 12286871382 3:35:35 LEXCHNG SRe EXCRT11.832;1 el vo4 
$99 v7 ctx Crtlictx$l_exp_name_len] = (IF .ch EQL 0 THEN rtlictx$s_exp_name ELSE .ch = ctx [rt11ctx$t_exp_name]); 
701 exch$util radix50_to ascii (rtlictx$s_exp_type, ctx Crtlictx$w filetype], ctx [rtl1ctx$t_exp_type]); 
Ie ch = CHSFIND_CH Cre i Tctxss_exp_ty e, ctx Cretletxst exp_t sy , ite mpegs 
At ctx CrtlictxSl_exp_type_len] ="(IF .ch EQL 0 THEN r€lictxSs_exp_type ELSE .ch = ctx [Crtlictx$t_exp_typed); 
05 5 If file is protected, set the P 
5 f if .ctx Crtlictx$v_typ_protected] 
. aso (2, UPLIT BYTE ("p="), ctx Crtiictx$t_exp_protected]) 
} : CHSMOVE (2, UPLIT BYTE (* '), ctx CErtlictx$t_exp_protected]); 
: ; Create a filename in the standard, non-embedded blank format by concatenating the name, a ‘’.'' and the type 
1 9 ctx Crtlictx$l_ex fullname_len) = .ctx Crtlictx$l_exp_name_len] + 1 + .ctx Crtlictx$l_exp_type_len]; 
1 9 CHSCOPY (.ctx ErtiTctx$l exp.nane.lend, ctx [rtlictx$t_exp_namel, ! the file name 
1 9 i, UPLIT BYTE (*.")> i the "'."" separator 
1 9 ctx Ertlictx$l_exp_type_len], ctx prev ictxst_exp. typed. ! the file type 
H aC ' ', rtlictx$S_exp_fullname, ctx Crtiictx$t_exp_fullname]); ! the blank-padded result 
0 
0 
0 
0 


if .ctx Crti1ctx$w_date] EQL 0 
THEN 


oe ne (rtlictx$s_exp_date, UPLIT BYTE (" < nodate >"), ctx (rtllctx$t_exp_date]) 


! 1972 is peered o zero 
tx$v-month) - 1; 


c 
C 

HEN mon = 12; ! 
Aye fe date; ! set up a descriptor for FAO 
tx Cr t exp date]; 

4 NOT (status = $fao (ZASCID "!2UC-!AF‘4uL', 0, date_desc, .day, 4, months C.mon], .year)) 


4 

N 
; Sexch_signal_stop (.status); 
END; 
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L ZIF switch debug 
U ZTHEN 
1 U BEGIN 
§ U LOCAL 
U ent_typ; 
4 U BIND 
5 U a = ctx (rtiictx$t_entry] : VECTOR C, WORD); 
$ : Show the entry type 
: : ent_typ ae -ctx Crtlictx$v_type] FROM 0 TO rtiictx$m_typ_end_segment OF 
50 U rtilent$m_typ_tentative] : ZASCID ‘tent’; 
51 U rtllentSm_typ_empty] : ZASCID ‘empty’; 
2g U rtilent$m_typ_permanent] : ZASCID ‘perm’; 
5 U rtlient$m typ end_segment] :  %ASCID ‘end’; 
30 ¥ — INRANGE, OUTRANGET : ZASCID ‘unknown’; 
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1 
EXCHSRT11 RT11 file and directory routines bese -1984 01:14:37 AX-11 Bliss-32 V4.0-742 P 
/v04-000 exch$rtil_expand_filename (ctx) Ve-Sep=1984 12:29:07 — ERXCHNG’SRETERERTTI BSoe1 290 18) 
| Pe $008 EARNE #8. excvayras tantnso_t0_asct er 
SE Ab 8 3A Loce 460«_«#32,,_ «#6, BA CRED A + 1777) 
2 A BNEQ 1$ : | 
1 D4 C CLRL eR : 
52 1 0 E 1$ MOVL R1, CH ; 
| 05 1 4 BNEG 2 + 1778) 
51 6 DO 0004 MOVL #6, R1 : 
08 11 O46 BRB 38 : 
50 5E 48 9 bbe 2$: MOV 4(R6), RO 3 
51 52 50 C3 0004C SUBL3 RO, cH R1 : 
| 4A AG 51. 50 00050 38: OVL RI. 74¢R6) ; 
64 Ab OF 4 PUSHAB 100(R6) + 1780 
3E AG 9F 00057 PUSHAB 6¢(R6) : 
| 03 DD OO0SA PUSHL # : 
6A 03 FB 0005¢ CALLS #3, EXCHSUTIL_RADIX50_TO_ASCII : 
64 Ab 03 20 3A 0005F LOCC #32, #3, 100(R6) : 1781 
| 02 12 00064 BNEQ 4$ : 
51 D4 00066 CLRL sR : 
52 51 D0 0006 4$ MOVL R1, CH : 
05 12 00068 BNEQ 5$ + 1782 
51 03 00 90060 MOVL #3, R1 : 
08 11 00070 BRB 63 ; 
50 64 Ab 3 00072 5$ MOV 100(R6), RO : 
51 52 50 C3 00076 SUBL3 J, CH, R1 ; 
4E AG 51 DO OOO7A 6$ MOVL Ri, 78(R6) : 
39 A6 95 OO07E TSTB =: 57 (R6) : 1786 
06 18 00081 BGEQ «6s 7$ : 
52. Ab 69 BO 00083 MOVW P.AAB, 82(R6) : 1788 
05 11 00087 BRB 34 : 
52. Ab 02 A9 BO 00089 7$ MOVW  P.AAC 82 (RG : 1790 
50 4A A 4E Ab C1 OOOBE 8S ADDL3 78(R65, 74(R6), PO + 1794 
46 AG 01 AO SE 00094 MOVAB 1(RO), 70(R6 : 
58 0A 00 00099 MOVL #10, R8 : 1797 
57 54 Ab 9E 0009C MOVAB 84(R6), R7 : 1798 
58 20 SE Ab 4A as 2¢ S00A0 MOVCS 74(R6). 94(R6), #32, RB, (R7) : 
1D 18 OOOA8 BGEQ 3=s«o9S : 
57 4A Ab CO OOOAA ADDL2 74(R6), R7 : 
58 4A Ab C2 OOOAE SUBL2  74(R6). RB : 
58 20 04 A9 01 2C 00082 MOVCS #1, P.AAD, #32, RB, (R7) : 
67 00B8 F 
0c 18 00089 BGEQ 3=s«&9S : 
2 D6 O0BB INCL  R7 : 
8 D7 000BD DECL RB : 
58 20 64 Ab 4E as 2¢ O0BF MOVCS  78(R6), 100(R6), #32, RB, (R7) : 
44 A6 B O0¢7 9$: TSTW 68 (R6) + 1802 
08 12 OOOCA BNEQ 10$ : 
67 Ab 0S Ad 0B é b0c¢ MOVC3 #11, P.AAE, 103(R6) > 1804 
4F 11 0000 BRB 12$ : 
52 44 6 05 00 Ef 9004 10$: EXTZV. #0, #5, 68(R6), YEAR : 1807 
32 07B4 ce E OOODA MOVAB 1972(R2), YEAR ; 
51 44 Ab 0 0S EF DF EXTZV a3. #3. &8(R6), DAY : 1808 
50 45 Ab q EF OOOES EXTZ2V #2, #5; 69(R6). MON + 1809 
D7 OOOEB DECL MON ; 
0c D1 O00ED CMPL MON, #12 > 1810 
j 
| 
| 
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| EXCHSRT11 RT11 file and directory routines Sep-1984 214: AX-11 Bliss-32 Page 61 
Rett exch$rtti_expand. filename (ctx) if: sen 1944 93:35:35 EXCHNG.SRCJEXC criti Hi 05530 31 . 18) 
| 3 1 F BLEQU : 
50 C D F MOVL : 
6E p F5 11$ MOVL fh TE DESC ; 1811 
04 AE 67 A6 SE OOOF MOVAB afk BATE_DESC+4 +4 1¢ 
| 52 DD OOOFD PUSHL YEAR ; 1813) 
| CC A940 DF OOOF PUSHAL MONTHSCMON] ; | 
| 94 DD PUSHL #4 : 
1 DD 001 PUSHL DAY : 
10 AE 9F 00107 PUSHAB DATE_DESC : 
re D4 0010A CLRL 5 (SP Py : 
1c =6A9) «OF 0010C PUSHAB ; 
000000006 00 97 FB 10F CALLS an AC YSSEAO : 
OA 0 € 118 BLBS STATUS, 12$ ; 
50 DD 0011 PUSHL STA TUS + 1815 
000000006 00 01 FB 0011 CALLS #1, LiBsstop : 
04 0012 RET : 
50 01 DO 00123 128 MOVL , RO + 1848 
04 00126 RET + 1849 
; Routine Size: 295 bytes, Routine Base: EXCH$RT11_CODE + ODOC 
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exch$rtll_format_current_date (ent) 14-Sep-1984 12:29:07 EXCHNG.SRCJEXCRT11.832;1 (19) | 
1820 1 Soon ROUTINE excn$rtl1_format_current_date (ent : $ref_bblock) : NOVALUE jsb_r1 = ZSBTTL ‘exch$rt11_fo 
1850 '4+ 
185 ‘ 

S28 FUNCTIONAL DESCRIPTION: 

1328 } Format ihe current date, placing it into the date field of an RT-11 directory entry | 
1858 2! INPUT 
1859 : 

+e ent = pointer to the directory entry | 
1866 ' IMPLICIT INPUTS: | 
186 ‘ 

1864 ! none 

1865 ‘ 

1866 ' OUTPUTS: 

1867 ! 

1868 : none 

1869 § ' 

1870 ! IMPLICIT OUTPUTS: 

1871 2! 

1376 eq} none 

187 § ! 

1874 ' ROUTINE VALUE: 

1875 2! 

1876 2! none 

1877 2! 
1878 2 ! SIDE EFFECTS: 

1879 2! 

1880 ' none 

1881 l—= 

Ieee 

ee § $dbgtrc_prefix ('rt1l1l_format_current_date> '); 

1885 2 LOCAL 

1886 2 timbuf : VECTOR (7, WORD) 

1887 § ; 

1888 

1889 BIND : ; 

+ year = timbuf [0] : WORD, month = timbuf (1) : WORD, day = timbuf (2) : WORD; 

1338 Snumtim (timbuf=timbuf); | 
1894 ent Crtilent$v_year]_ = .year - 1972; 

1895 ent (rtilent$v_month] = .month; 

1338 ent ([rtllent$v_day] = .day; 

1898 RETURN; 

1899 1 END; 


~-EXTRN SYSSNUMTIM 


SE 10 C2 00000 EXCHS$RT11_FORMAT_CURRENT_DATE:: | 
SOBL2 #16, SP ~ ; 1850 | 
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EXCHSRT11 RT11_ file and directory routines 1-56 “1984 01:14:37 AX-11 Bliss-32 V4.0-742 Page 64. 
v04-000 exch$rti1_mount (volb) 197 38-1 $8e 93:28:05 LEXCHNG. SROSEXCRITI 85251 , (28) 
H i 3 1900 1 GLOBAL ROUTINE exch$rt11_mount (volb : Sref_bblock) = %SBTTL ‘exch$rt11_mount (volb)’ 
> 1824 1901 BEGIN 
3 is 5 1308 ++ 
3} § 13 : 
; 18 1904 ! FUNCTIONAL DESCRIPTION: 
: 1828 1905 ' 
- 829 1906 ‘ Perform RT=11 volume specific mount processing 
; 1830 1907 ! 
; 1831 1908 ! INPUTS: 
; 1336 1909 : 
; 137 1319 volb = pointer to volb which has been connected to the RT-11 device | 
; 1838 191¢ ! IMPLECIT INPUTS: 
; 1836 191 : 
; 1837 1914 : none 
; 1838 1915 : 
; 1839 1916 ! OUTPUTS: 
: 1840 1917 ' 
> 1841 1918 ; none 
: 134 1919 ! 
3 184 1920 ! GMPLICIT OUTPUTS: 
> 1844 1361 : 
; 1845 19 ¢ : none 
> 1846 192 ! | 
3: 1847 1924 4 ROUTINE VALUE: 
3 1848 135? : | 
> 1849 1926 : none 
: 1850 1927 2! 
:; 1851 1928 2 ! SIDE EFFECTS: 
 185¢ 19¢9 2! | 
; 185 1930 2! none 
3 1854 1931 leo 
; 1855 1932 
; 1856 19335 $dbgtrc_pretix ('rt11l_mount> '); 
: 1857 1934 2 
; 1858 1935 2 LOCAL . 
; 1859 1936 2 rtv : $ref_bblock, ! a pointer to the rt11 volb extension 
; 1860 1937 2 seg : $Sref_bblock, ! a pointer to the current directory segment 
>: 1861 1938 blocks, 
; 1806 1939 status 
: 186 1940 3 
: 1864 1941 
3 1865 1966 Sdebug_print_lit (‘entry'); 
3 1866 194 
3; 186 1944 Sblock_ check (1, .volb, volb, 462); | 
: 1868 1945 i 
; 136) ine : Allocate and initialize our volb extension | 
3 1871 1948 Slogic_check (2, (.volb Cvolb$a_vfmt_specific] EQL 0), 127); 
3 1876 1949 rtv = exch$util _vm_allocate (exchblk$s_rt11); 
; 187 1950 CHSFILL (0, rtiT$k-end_zero - rti1$k_sfart_zero, .rtv + rt11$k_start_zero); ! Set part of block to nulls 
> 1874 1951 2 volb Cvolb$a_vfmt_SpecTfic] = .rtv; | 
3 8 1306 Sblock_init T.rtv> rtil); 
: 1877 1328 : Read the first part of the volume, the home block on pbn 1 
; 1879 1956 IF NOT (status = exch$io_rtll_read (.volb, 1, 1, rtv Crtl1$t_block_1])) 


V 


oe 


seg; : 
IF NOT (status = exch$io.rtii read (.volb, rtl1$k_root_block+2, .blk_cnt, .addr)) 


3 


OONOUNEWUN —OOONAULSWN "OC OONOU 


HEN 
RETURN .status; 
ND; 


| 
; | 
; Now we are ok, set the flag that it is present 
2 rtv C(rtl1$v_dir_present] = true; ! This means present through HIGH_SEG, not NUM_SEGS 

Verify the directory 

status = exch$rtacp_verify_directory (.volb); | 

Set the volume type string 

| 

1 


CHSMOVE (5, UPLIT BYTE ('RT-11"), volb Cvolb$t_vol_type)); 
volb Cvolb$t_vol_type_len] = 5; 


: Initialize the directory cache to the state of the global /CACHE qualifier 
volb Cvolb$l_dircache] = .exch$a_gbl Cexcg$v_q_cache]; 


dD 2 

EXCHSRT11 RT11_ file and directory routines 16-Sep-1984 01:14:37 AX=11 Bliss-32 V4.0-742 Page 65 Ex 
v04-000 exch$rt11_mount (vol) 12280871382 93:36:05 LEXCHNG.SRe EXCRT11.832;1 . (28 vo. 
1880 1957 THEN a 
bbe 1328 RETURN .status; ’ 
as$ 208 Read the the first directory segment, found on blocks 6 and 7. : 
rH oes IF NOT (status = exch$io_rtll_read (.volb, rti1$k_root_block, 2, i 
86 96 rtv Cre1i$t_block_0] + (512 * rt11$k_root_block))) i 
887 964 THEN | | 
43 292 RETURN .status; é 
890 369 : Use the segment get routine to verify this first segment. We temporarily set the present flag because the +4 
$3) ¢ ; get routine expects to see it. | ; 
898 390 rtv Crtli$v_dir_present] = true; | 
894 971 seg = exch$rt11l_dirseg_get (.volb, 1); ! Get a pointer to the root segment * ¢ 
895 378 rtv C(rtli$v_dir_present] = false; s 4 
896 97 IF .seg EQL 0 ! DIRSEG_GET will have signalled any problems - ¢ 
897 974 HEN a4 
598 of? RETURN exch$_rt1l_baddirect; + 4 
4's 37 Read in the rest of the directory if it is a multi-segment directory | : ‘ 
902 979 3 iF .seg [rt1thdr$w_high.seg] GTRU 1 | i 
90 980 2 THEN ; 4 
904 981 BEGIN s 4 
90 982 LOCAL | 3 
90: 98 blk cnt, addr; | a ¢ 
90 984 blk_cnt = 2 * (,seg C[rtlihdr$w_high_seg] - 1); ! Segs are 2 blocks, but one is already in memory 2 4 
90 #4 addr = rti1l$k_dirseglen + . ; ! Get a pointer to space after the root segment : ; 
7 3 4 
8 : ¢ 
9 2 ¢ 
0 ¢ 
1 ; ¢ 
§ | 
4 3 
5 3 4 
6 a4 
7 3 4 
8 2 4 
9 3 4 

0 

1 
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00 
004 


a ce ee ce ee ce el ee el ec ee ce me ee el el el lt cel ee el ce el el el el el cel el elt el cel eel el el al ll el cel ll ll cel cel cel el cel 


WDOODOOVOVDOODOOODOOODOOOOOVDOOO 


WAIAARINOPINPOPPONINNYDD OO OO Oe 


mo 
FIP IIIA IIIT at nt rh kh hh ot tt 


RETURN .status; 
END; 


~PSECT EXCHSRT11_PLIT,NOWRT,2 


2 
EXCHS$RT11 RT11_ file and directory routines 1s 1984 14:37 AX-11 Bliss-32 V4.0-74 
v06~000 exchSrtii_mount (volb). arSep-1984 12:29:07 — LEXcHNG’SRETEXCRYT cB Ses Page 28) 


31 31 2D 54 52 O005C P.AAH: .ASCII \RT=11\ ; 


-PSECT EXCHSRT11_CODE,NOWRT,2 


01FC 00000 .ENTRY EXCH$RT11_MOUNT, Save R2,R3,R4,R5,R6,R7,RB ; 
58 000000006 EF 3 900¢ MOVAB EXCH$IO_RT11_READ, R8 : | 
26 04 AC 00 0000 MOVL VOL R + 1964 | 
52 041B00F3 BF b0 000 MOVL #6 8785 9, R2 : 
21 O1CE ef ¢ 0014 MOVZWL #462, R1 : 
0 6 D 19 MOVL  R6 F 
000000006 EF 16 9001 JSB EXCHSUTIL_BLOCK. CHECK : 
54 Ag D3 00 TSTL 4(R6) t 1948 | 
13 13 000 BEQL '1$ : 
7E 7F BF 9A 00027 MOVZBL #127, -(SP) : 
4 DD 00028 PUSHL # : 
000000006 8F DD 000 : PUSHL #EXCH$ BADLOGIC ; 
000000006 0 03 FB 000 CALLS # | JBSSTOP : | 
7E B880E BF 3C O003A 1S: MOVZWL #34830, -(SP) + 1949. 
000000006 EF 01 FB 0003F CALLS #1, EXCHSUTIL_VM_ALLOCATE : 
50 DO 00046 MOVL ; RIV F 
“ 0c ae 9E 90049 MOVAB 12(RTV), R3 : 1950 
63 B4 0004D CLRW = (R3) : | 
54 AG 52 DO 0004F MOVL TV, 84(R6) > 1951 
08 A2 880E 8F BO 00053 MOVW #30706, 8(RTV) : 1952. 
OA A 0B BE 00059 MNEGB #11, 10(RTV) : | 
020E C2 9F 0005D PUSHAB 526(RTV) : 1956) 
01 Dd 00061 PUSHL #1 : 
01 0D 00063 PUSHL #1 F 
56 DD 00065 PUSHL R6 : 
68 04 FB 00067 CALLS #4, EXCH$SIO_RT11_READ F 
57 50 DO O006A MOVL RO. STATUS ; 
77 57 £9 0006D BLBC status 4$ ; 
OcOE C2 9F 00070 PUSHAB 3086(RTV) > 1963 
02 DD 00074 PUSHL #2 : 1962 
6 DD 00076 PUSHL #6 : 
56 DD 00078 PUSHL R6 ; 
68 4 FB OOO7A CALLS #4, EXCHSIO_RT11_READ ; 
5 : D0 0007D MOVL RO. STATUS ; 
64 9 9080 BLBC STATUS ; 
63 01 88 0008 BISB2 #1, (RS) : 197 
1 DD 0 PUSHL #1 : 197 
$ DD PUSHL R : 
FC4D OCF FB OOO8A CALLS #2, EXCHSRT11_DIRSEG_GET : 
63 gi BA O008F BICB2 #1. (R3) : 197 
0 D 092 STL se6 : 197 
0 12 000 BNEO $ ; 
50 000000006 8F 06 a098 MOVL #EXCHS_RT11_BADDIRECT, RO : 1975. 
01 04 ad Bi 2$: CMPW = & (SEG), #1 : 1979 
1F 1B OOOA BLEQU ; 
51 04 Aad 3 A MOVZWL 4(SEG), R1 > 1984 | 
82 4 OO0aA Mets 82. BLK_CNT 
3 400 9 OOOAD MOVAB TOS4CROT™ “ADDR : 1985 | 


——_— 


; , 
ia | 


EXCHSRT11 RT11_ file and directory routines 16- 39 7 AX-11 Bliss-32 V4.0-74 7) EX 
v04-000 exch$rtTi_mount. (volb) Ve-Sep-19be 12:29:07 — LEXCHNG SRESEXCRYTI-BS3s1 Page 28) ” 
0 DD B2 PUSHL ADDR 3 1986) 
1 DOO B4 PUSHL BLK_CNT 
8 DD Be PUSHL # 
6 DD 8 PUSHL R 
§ 4 F BA CALLS #4, E WO [CATT REAS 
9 Dd 8 OVL RO, S WS 
: : C BLBC_ STATU 
6 DD O0Oce pus ORGY 
000000006 gf ; F C CALLS a, EXCHSRTACP_VERIFY_DIRECTORY 
7 B CF MOVL RQ, STATUS 
iol oy $$ $8885 BBYES. ge ly 95000 3 
50 A6 00000000G FF 4 1 EF OD EXTZV #1, # Se nCHeA., GBL, 80(R6) 006 
0 7 00 QOOE? 4$: MOVL STA TUS 008 
04 OOOEA RET 2009 


; Routine Size: 235 bytes, Routine Base: EXCHS$RT11_CODE + OE6E 
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s 4 : 
. 5 3 14 
; ¥ 15 
; 1940 1 
: 19d3 0} 
3 19 ¢ 88 
: 1944 020 
a 8 
: 1909 0 § 
3: 1948 024 
3 1949 025 
: 1950 026 
3; 1951 027 
3 1326 028 
3: 195 029 
: 1954 030 
3; 1955 031 
3; 1956 O36 
3; 1957 03 
: 1958 034 
3; 1959 035 
3; 1960 036 
3: 1961 037 
; 1206 Sots 
: 196 039 
3 1964 2040 
: 1965 2041 
3: 1966 $066 
3: 1967 spe 
3; 1968 044 
3: 1969 2045 
: 1970 2046 
3: 1971 sper 
; 13% 048 
3 197 Spep 
3 1974 050 
3: 1975 2051 
: 1976 b3¢ 
3; 1977 be 
; 1978 54 
: 1979 055 
: 1980 056 
; 1981 057 
3 1956 058 
3: 198 059 
3: 1984 060 
i 
: 1987 063 
: 1988 Boe 
: 1989 65 
: 1990 066 
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_open_file 
GLOBAL ROUTINE exch$rt1l_open_file = 
me 


FUNCTIONAL DESCRIPTION: 


2 
18-Sep-1984 91:14:57 


ZSBTTL ‘exch$rt11_open_file' 


ete Blis eae V4,0-7 


42 
EXCHNG.SRCJEXCRT11.832; 


1 


Perform RT-11 volume specific open processing 


INPUT: 
none 

IMPLICIT INPUTS: 
copy work area 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
none 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


OUTPUTS: 
IMPLICIT OUTPUTS: 
filb - receive info pertaining to the open file 
ROUTINE VALUE: 
true if able to open a file, false otherwise 
SIDE EFFECTS: 
none 
$dbgtrc_prefix ('rtll_open_file> '); 
LOCAL 
out_filb : Sref_bblock, 
status 
BIND 
copy = exch$a_gbl Cexcg$a copy work $ref_bblock, 
inp_filb = copy Ctopy$a_inp_filb ref_bblock, 
t = inp_filb [filb$a_context] $ref_bblock, 
namb = inp_filb Cfilb$a_assoc_namb] $ref_bblock, 
nam_nam = namb (namb$q_name : $desc_block, 
nam typ = namb [nam $9 type : $desc_ block, ! the namb 
volB = inp_filb Cfilb$a_assoc_volb] : Sref_Bblock, 
inp_namb = copy Ccopy$a_inp_namb] : S$ref_bblock 


$debug_print_lit (‘entry'); 


$Sblock_check (2, .inp_filb, filb, 463); 
Sblock"check (2, .namb, namb, 464); 
Sblock check (2, .volb, volb, 465); 


' Get name and type components from 


Page 68 


bad 


<m 
ee 


oo om om Om om 2 OM OR om 2 OR OP OM OM OA OP OM OP OP OM Om 2 OA OP. OP. OP, Om 2 OP Om OM Om OA OM EP OM OA OM OM OM OM Om OM Be om OM OA Om EA EM OP OA Om 1 ER om 


2 


vOou"800'' = Shensretf_Spenctiter”™ “outines 1e$88-198 (3:36:53 wNcMLSPLMeSe katt 5682h Page 45 


3 } | Make sure that the output filb points to a valid filb 
; i if Gout. filo = .copy Ccopy$a_out_filb]) EQ. 0 

; 1995 7 

; 1 72 


out_filb = .inp_filb; 
Sblock_Theck (2, eat filb, filb, 472); 


EXCHSRT11 RT11_ file and directory routines 1b-5e $ep-1984 01:14:37 AX-11 Bliss-32 V4,0-742 Page 70. 
v04-000 exch$rtti open_file . et 7 2:29: 8) EXCHNG. SRC EXERT W475 B32;1 ’ (22) | 
} te If the context pointer is null, then allocate and initialize it. 
5 2 IF .ctx EQL 0 
6 THEN 
4 ctx = exch$util_rtlictx_allocate (.volb, .inp_filb) ! Create an RT11 context block 
7 If non-null, we are doing a subsequent lookup in a wildcard search 


SSSeSSSESeS 


1 5 ELSE | 
8 BEGIN 
8 : If not wildcard, then we must be done 
0 
0 
0 


ae $ % if NOT (.namb Cnamb$v_wild_name] OR .namb Cnamb$v_wild_typeJ) 

O18 8 RETURN false: | 
015 90 Sblock check (2, .ctx, rtiictx, 446); 
O16 091 | 
01 O36 END; 
018 09 
ah B38 Make sure that we haven't crossed signals aatel 

051 096 $logic. check (4, (.ctx (rtlictx$a_assoc_filb] EQ. . oe filb), 128); 
2022 097 Slogic-check (4, (.ctx Ertlictx$a~assoc_volb] EQL .volBb), 129); 

$054 099 ! We assume that the file name and type fields in the namb are adjacent. If they aren't, the next call to 
$06? $180 § exch$rtacp_ find. "ite will choke. 

2027 2102 2 $logic_check (3, (.nam_typ Cdsc$a_pointer) EQL (.nam_nam Cdsc$w_length] + .nam_nam Cdsc$a_pointer])), 154); 


2 
EXCHSRT11 RT11_ file and directory routines bese $1984 01:14:37 AX-11 Bliss-32 V4.0-742 Page 71 
v04=000 exch$rtii_open file , 107888-1 982 93:35:05 LEXCHNG SRE EXCRT11.832;1 9°23), 
+ 2029 103 IF ¢ 
; S : i ald Ccopy$v_reopen_input] ! If we are retrying, then reuse the context block 
: 20 1 1 | 
; 20 g 1 ; ELSE ! Otherwise skip to the next file 
: 5 ¢ ; 3 exch$rtacp_find_file (.ctx, .nam_nam Cdsc$a_pointer], .nam_nam Cdsc$w_length] + .nam_typ Cdsc$w_leng 
: 20 6 110 2 THEN | 
: 2037 iW BEGIN | 
; B75 118 ; Do not find a .BAD file unless it is explicitly specified | 
; 041 115 dF get Crtlictx$w filetype] EQL r50_bad | 
: $08 119 IF .inp_namb Cnamb$v_wild_name] ! If the found file was not explicitly named | 
3 2044 118 ! then skip to the next file by calling 
: pe? Bh -inp_namb Cnamb$v_wild_type] ! ourselves again 
; 047 1 RETURN exch$rt1l_open_file (); 
; beh } 5 ! Create the result name string in the filb | 
: 2051 125 inp_filb Cfilb$l_result_name_len] = _.volb Cvolb$l_vol_ident_len] ! Length of volume ident 
; O3¢ 126 .ctx Ceeticenst_exp_tyl (name enj; ! plus rt fullname 
; 205 127 Sloat check (3 FPS a Cfilb$l_result_name_lén] LEQU Tilb$s_result_name), 130); 
: 2054 128 CHSCOPY (.volb Cvolb$ _vol_ident_len], volB Cvolb$t_vol_identJ, ' Volume name 
: 2055 129 ctx (rtl1étx$l_exp_Ffullname_lenj, ctx CreitetxSt_exp_fullnamed, 
3 B28 : 9 6, filb$s_resul€_name, inp_fTlb Cfilb$t_result_namel): | 
; soe6 : § $debug_print_fao (‘Found “!AF', .inp_filb Cfilb$l_result_name_len], inp_filb Cfilb$t_result_name]); | 
; sey i ! Define a record stream for this file | 
: opee 136 ctx Crtlictx$l_cur_byte] = 0; ! Context is the first byte in 
; 206 2137 ctx rtlletx$l-cur-biock] = .ctx previctxst start block); ! the first block of the file 
; 2064 2138 3 ctx Ertlictx$l_eof block) = .ctx Ertlictx$l start block] + .ctx (rtlictx$w_blocks] - 1; 
3 2065 2139 inp_filb Cfilb$l_bTock count) = .ctx Cr€lictxSw blocks]; ' Put the size in the filb 
: 2066 2140 inp_fi filb$a_record = 0; ! No valid record or length 
; 2068 ate inp_filb Cfilb$l_record_len] = 0; 
: ¥ 4 148 | Make sure that the record format in the filb is correct 
: 2071 213 exch$cmd_fetch_recfmt_implied (.inp_filb, ctx Crtlictx$t_exp_type]); | 
F $098 149 For RT-11 we can treat block transfer mode as fixed 512 | 
; 149 iF .out_filb Cfilb$Sb_transfer_mode] EQL filbSk_xfrm_block | 
; 
3 13) : og Me.fte Cfilb$b_transfer_mode] EQL filbSk_xfrm_block 
; 133 & BEGIN 
: 154 4 inp_filb bf i tbSb_rec. forma ] = filbSk_rfmt_fixed; 
3 155 4 np filb filb$l-fixed_len = 512; 
: 138 a 
: 128 : Clear all the flags except the ones we want by writing the masks into the longword | 


K 2 
EXCHSRT11 RT11_ file and directory routines 16-Sep-1984 01:14:37 AX=-11 Bliss-32 V4.0-742 Page | 
v04-000 exch$rtil_open_file y 12-808-13 4 93:39:35 LEXCHNG SRe EXCRT11.832;1 . al 
H 160 tx Mea Tie flags] = eens ee eee remmncct ives ! A record stream is currently active 
: i 19 np_filb CfilbSv_files_found] = tfue; ! One or more files have been opened 
; O55 188 Set up the i/o and record buffer (for when we can't use locate mode) 
; 991 165 if .ctx Crtllctx$a_buffer] EQL 0 ! If doing wildcards buffer might be there | 
P4 | 
; 397 167 ctx Crttictx$a_buffer] = exch$util_vm_allocate (ctx$k_buffer_length); | 
; 344 199 } Set the block po’nters so that we will advance the buffer on the first get | 
: 2097 171 ctx rtlictx$l_buf_base_block] = .ctx pre} ictxst start block : 
3 84 \%¢ ctx Urtlictx$l_buf_high_block] = .ctx Crtlictx$lostart_block] = 1; 
: 199 We Save the addresses of our routines for this volume and record format. 
; 106 176 inp_filb filb$a_close_routine] = exch$rt11_close_file; 
; 210 17 inp_filb Cfilb$a_put_routine] = 0; 
3 $108 178 inp_filb Cfilb$Sa_get_routine] = exch$pdp_get; | 
> 2106 180 3 RETURN true; ! True means its open 
i 3107 2181 ND; | 
3; 2108 sik¢ 
: $193 ie? If no files were found, then scream and shout | 
: 2111 185 iF NOT .inp_filb Cfilb$v_files_found] | 
; i%6 186 THEN 
3: 211 187 BEGIN 
3: 2114 188 REGISTER 
; sii2 $183 fao_desc = 0 : $ref_bblock; 
: 31? 2191 Concatenate the volume name to the file name and type fields ; 
5 2119 $198 : fao_desc = exch$util_fao_buffer (ZASCID ‘!AF!AF’, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident], 
; 2120 $i3¢ ~nam_nam Cdsc$w_length] + .nam_typ Cdsc$w_léngth], .nam_nam Cdsc$a_pointer)); 
: 2121 195 $exch signal (exch$_filenotfound, 1, .fao_desc); 
3 21 ¢ 2196 RETURN rms$_fnf; 
: 21 197 
3 2124 198 END; 
: 2125 199 
: 2126 200 ! Normal exit, return a 0 
3 2127 sp : 
: 2128 ¢ RETURN 0; 
: 2129 203 1 END; 
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10E00 OO06C P.AAIL: .LONG 17694726 ; 
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EXCHS$RT11_OPEN_FILE, Save R2,R3,R4,R5,R6,- =; 2010 
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ae be GBL, RO + 2051 

(RO), R3 : 03¢ 
ORS), R7 : 205 
4(R7), RO 3; 2055) 

#56095676, R2 : 2063 

#465, R1 : 

ef Wor BLOCK_ CHECK ; 

ExCHsUT I | * ing + 2064 

#464, RI : 
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EXCHSUTIL BLOCK_CHECK : 
8(R7) 3 2065 

468878579. R2 : 

#465, R1 : 
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EXCHSUTIL BLOCK_CHECK : 

BCR ), OOT_FILB + 2069 

R7, OUT_FILB + 2071 

#56 Oyo 76. R2 > 2072 

#472, R1 : 

OUT FILB, RO : 
XCASUTIL_BLOCK_CHECK : 
g(R7) + 2075 

4 3; 2077 

*. EXCHSUTIL_RT11CTX ALLOCATE : 

n't 2(R7) r 

#1, 108(R9), 3$ > 2086 

We, 108(R9). 3$ : 

#8519924, R2 : 2090 

#446, RI : 
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EXCHSUTIL BLOCK_CHECK ; 

#2. 52(R3), 5$ : 3104 

a0(sP), RO > 2108 

88(R9), R1 3 

(R1) CRO) ; 

#4, 4(SP), R2 : 

(Rd) ; 

32(R7) 3 

3, EXCHSRTACP_FIND_FILE ; 

R $ ; 

12$ ; 

30(R7), Rs > 2115 

é (RO), #3244 ; 

64(R3), RO : 2117 
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; Routine Size: 489 bytes, Routine Base: EXCHS$RT11_CODE + OF59 
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Routine Size: 


RT11_ file and directory routines 1 
exch$rtil_write_ cleanup (volb) 1 
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p-1984 12:29:07  CEXCHNG.SRCJEXCRT11.83251 (24) 
1 SN ROUTINE exch$rtll_write_cleanup (volb : $ref_bblock) : NOVALUE = ZSBTTL ‘exch$rt11_write_cleanup (vol 


le4 
i 


i FUNCTIONAL DESCRIPTION: 
Finish writing to the volume. Clear file marks and flush caches. 
INPUTS: 
volb = pointer to volb which has been connected to the RT-11 device 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
! ROUTINE VALUE: 
none 
SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
! 
i 
' 
i 
! 
i 
i 
error conditions will be signaled 


$dbgtrc_prefix ('rtll_write_cleanup> '); 

$trace_print_fao (‘entry - volb !XL", .volb); 
exch$rti1l_zero_marks (.volb); ! Clear all the file marks 
exch$rtll_dircache_stop (.volb); ! Clear caching and flush the directory 


RETURN; 
ND; 
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0000 00000 ENTRY EXCHSRT11_WRITE_CLEANUP, Save nothing ; 3g 
04 AC DD 000 g PUSHL VOL 3 2241 
0000v CF 01 FB 09 CALLS #1, EXCHSRT11_ZERO_MARKS : 
04 AC DD OOOOA PUSHL ' > 2243 | 
FOOF CF 01 FB 000 p CALLS #1, EXCHSRT11_DIRCACHE_STOP ; 
04 0001 RET 3 2246 | 
19 bytes, Routine Base: EXCHS$RT11_CODE + 1142 
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Routine Size: 


RT11_ file and directory routines 
exch$rtll_write_prepare (volb) 


gh aeat ROUTINE exch$rtll_write_prepare (volb : Sref_bblock) 


47 
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19 bytes, 
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Dd 
16- 
14 


ee 
' 
FUNCTIONAL DESCRIPTION: 
Prepare to write to the volume. 
' INPUTS: 


! IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
error conditions will be signaled 


i 
i 
i 
i 
i 
' 
i 
! 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
low 
$dbgtrc_prefix ('rtll_write_prepare> '); 
$trace_print_fao (‘entry - volb !XL", .volb); 
exch$rtll_dircache_start (.volb); 


exch$rt11_zero_marks (.volb); 


RETURN; 
END; 
0000 000 
04 aC OD $38 
F86F CF 01 FB 0000 
04 AC DD QOOOA 
0000v CF 01 FB Bete 
04 1 
Routine Base: EXCHSRT11_CODE + 1155 
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volb = pointer to volb which has been connected to the RT-11 device 


AX-11 Bliss-32 V4.0-742 p 78 
LEXCHNG SRCJEXCRITI B5201 age 303 | 


: NOVALUE = ZSBTTL ‘exch$rt11_write_prepare (vol | 


5335:35 


Set up caches and clear file marks. 


! Start caching on the directory 
' Clear all the file marks 


Pag EECRORT ET MRI TE PREPARE, Save nothing 3 

CALLS #1, EXCHSRT11_DIRCACHE_START ; | 
PUSHL VOL > 2286 | 
CALLS #1, EXCHSRT11_ZERO_MARKS : 
RET > 2289 | 
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$trace_print_fao ("entry - volb !XL", .volb); 


Sblock_check (2, .volb : 
Slogic-check (2, (.volb volb$v_write]), 199); 


ee ee 7 


$dbgtrc_prefix (‘exch$rt11_zero_marks> '); 
LOCAL 


a pointer to the current directory segment 
a pointer to the current directory entry 
current segment number 

Length of a directory entry 


seg : Sref_bblock, 
cur : $ref_bblock, 
seg_num, 
ent_len 


| 


olb, 459); 


’ 9 
RT11_ file and directory routines 16-Sep-1984 01:14:37 AX-11 Bliss-32 V4.0-742 Page 80 
exch$rtll_zero_marks (volb) 14-Sep-19 4 93:39:09 LEXCHNG. SRE EXCRT11.832;1 : (26) 
39 1 $ Seat ROUTINE exch$rt11_zero_marks (volb : $ref_bblock) : NOVALUE = ZSBTTL ‘exch$rt11_zero_marks (volb)' | 
2 
34 FUNCTIONAL DESCRIPTION: 
96 i Clear the file marks in every entry in the directory. EXCHANGE bg = the JOB byte (rtilent$b_job) o 
97 : directory entry while it is entering files. The flags are cleared before and after each COPY comman 
ys therebye giving us the means to recognize that we might have to delete a file which we just created. 
90 i INPUTS: 
308 : volb = pointer to volb which has been connected to the RT-11 device 
304 2 | IMPLICIT INPUTS: 
305 : 
306 ! none 
07 : 
08 ! OUTPUTS: 
09 ! 
? none 
: i IMPLICIT OUTPUTS: 
4 i none 
5 } 
8 ROUTINE VALUE: 
8 i none 
G ' 
’ SIDE EFFECTS: 
§ : error conditions will be signaled 
: : 
5 
6 
7 
8 
9 
0 
4 


| 
We shouldn't get this far if we aren't supposed to write t | 


3 | 
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v04-000 sushrai bore morke (volb) 1 ~Sep-19 4 93:35:85 LEXCHNG SRE EXCRT11.832;1 ’ 29) 
; $8 33 ! Loop through all the directory entries to clear the mark flag. | : 
: $3 4 seg num = 1; ! Start with the first directory segment : 
: 2e71 4 WHICE .seg_num NEQ 0 | 3 
; if tg dO : 
: i 43 BEGIN | : 
; Ne o? : Get a pointer to the current segment, return if error ; 
: 4 <3 seg = exch$rt!]_dirseg_get (.volb, .seg_num); | ; 
; 18 48 Slogic_check (27 (.seg NEQ 0), 197): | ; 
; ri ent_len = rtilent$k_length + .seg [rtiihdrSw_extra_bytes]; ! Actually the same for all segments : 
; 3 1 Get a pointer to the first directory entry | : 
; 68 38 cur = seg + rtilhdr$k_length; 3 
: a2 2 ! Look through the segment ; 
; 2287 5 4 WHILE (.cur LSSU (.seg + rtl1$k_dirseglen)) ; 
; 2288 358 3 dO 3 
; 2289 $25 4 BEGIN : 
: 2290 60 4 H 
3 4 3! ? CASE .cur Crtilent$v_type] FROM 0 TO rtilent$m_typ_end_segment OF : 
; $93 308 4 C(rtllent$m typ.tentative, rtllent$m_typ_permanent, rtilent$Sm_typ_empty] : | ; 
Be BEG ae sf 
; 4 2366 ; } If the marker isn't clear, clear it and remember that the segment has been changed F 
; 538 2368 : if .cur (rtllent$b_job] NEQ 0 | ; 
; $30 369 THEN : 
: 2300 370 6 BEGIN 3 
3 2301 371 6 cur Crtilent$b_job] = 0; : 
3 $08 358 6 exch$rtll_dirseg_put (.volb, .seg_num); ! Caching is on, this won't give us an I/O n ; 
: 230 373 5 END; 3 
: $398 a ay: 
; 2306 76 4 Crtllent$m_typ_end_segment] : : 
: 5307 35 ft EXITLOOP: | : 
; 2308 78 4 | : 
; 2309 79 4 CINRANGE, OUTRANGE) : 3 
30 et 3 Bedi 
3 312 38 4 TES; | : 
; sie rf: ? cur = .cur + .ent_len; ! Skip to the next entry : 
: i 386 END; | 
; 319 38s seg_num = .seg ([rtilhdr$w_next_seg); ! Skip to the next segment ’ 
; 3 i END; : 
: 9 RETURN; ; 
; 5§ 38 END; : 


H 3 
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v04-000 exch$rtll_zero_marks (volb) 1 7300-138 95:36; 7 LEXCHNG. SRE EXCRT11.832;1 ae 
07FC 00000 eENTRY EXCHS$RT11 Se es Save R2,R3,R4,R5,R6,- ; 2290) : 
R7,R8,R9,R1 : ; 
A 800000 06 09 002 MOVAB LIBS$STOP, R10 : ; 
2 000 G BF D MOVL §§ #EXCHS$ BADLOGIC, R9 : | ; 
4 Ac 8 Hh MOVL OLB, R ; 2336. : 
¢ 04180063 BF 14 MOVL #68878579, R2 3 | : 
1 1(B BF 3 01 MOVZWL #459, R1 ; : 
50 5 0 0 MOVL RS, RO : ; 
000000006 EF § JSB EXCHSUTIL BLOCK_CHECK : ; 
0B 48 AS 5 L 029 BBS #5, 72(R53, 1$ t 2337 ; 
7E C7 BF 9A 000 MOVZBL #199, -(SPS : ; 
1 0D 90 PUSHL #1 : ; 
9 DD 000 PUSHL R9 : : 
6A 33 FB 000 CALLS #3, LIBSSTOP ¢ : 
54 1 0g 0039 1$: MOVL #1, SEG_NUM > 2340 
68 1 9005¢ 2$: BEQL > 2341 : 
54 0D 0055 PUSHL  SEG_NUM + 2347 : 
55 DD 9004 PUSHL : : 
F99B OCF 08 FB O04¢ CALLS #2, EXCHSRT11_DIRSEG_GET : ; 
53 D0 9004 MOVL RO. SEG : ; 
OB 12 0004A BNEG + 2348 : 
7E CS «BF 9A 0004C MOVZBL #197, -(SP) : | ; 
9 DD 00050 PUSHL #1 $ 3 
9 DD 00052 PUSHL R9 : : 
6A 03 FB 00054 CALLS #3, LIBSSTOP s : 
57 06 A’ 3C 00057 3$: MOVZWL 6(SEG), ENT_LEN : 2349 ; 
57 OE C¢O 00058 ADDL2 #14, ENT_LEN : 3 
52 OA A3 SE 0005 MOVAB 10(R3), CUR : 2353 ; 
56 0400 9E 0006 MOVAB 1024(R3), R6 : 2357 : 
56 > D1 00067 43: CMPL CUR, R6 : : 
4 1€ 0006A BGEQU 8$ : ; 
58 01 A2 04 00 EF 006¢ EXTZV #0, #4, 1(CUR), RB : 2361 F 
08 00 58 CF 00072 CASEL RB. #0. #8 ; : 
0025 0014 0014 0025 00076 5$: <WORD 7$-5$,- ; ; 
0025 0025 0025 0014 007€ 6$-5$.- : ; 
002A 00086 $$-38,- ; ; 
$-5$,- ; 
$-5$;- : 
£$-33.-- : | 
7$-5$.- : | 
$-5$ 3 | 
11 11 00088 BRB $ F 
0B A2 3 OOBA 6$: TSTB =: 11 (CUR) : 2368 
0c 13 000 BEQL «6 7$ : 
0B A2 94 000 CLRB =: 11 (CUR) : 3 71 
24 DD 2 PUSHL SEC_N : 2372 
5 DD 00094 PUSHL R ; 
FAI2 CF 08 F 96 CALLS #2, EXCHSRT11_DIRSEG_PUT ; 
2 2 7$: ADDL ENT _LEN, CUR 2 84 
54 02 A3 3C OOOAO BS: MOVZWL 2(SEG), SEG_NUM : 2388 
96 11 0004 BRB ss ; $ 41 


seta" 


; Routine Size: 


RT11_ fi 
exch$rt 


if 


and directory ro 
zero_marks (Yolb 


167 bytes, Routine Bas 


ytines 1b- ep 


04 O00A6 9$: 
e: EXCHSRT11_CODE + 1168 


1882 93:39:35 


RET 


l 


AX-11 Blis 
EXCHNG. SRC 


Fexervti 5301 


EXCHSRT11 
v04-000 


i 5886 


EXCHSRT11 ~ [006 
EXCHS$RT11_PLIT 


Size 

Run Time: 

Fyeoeed ae 
nes/CPU Min: 1739" 

Lenenes/CPU-Rin: 23430 


RT11 tile and etrectory routines 
exch$rtll_zero_marks (volb) 
$333 0 {ODOM 
PSECT SUMMARY 
Name Bytes 


“6 3 NOVEC,NOWRT, RD, 
116 NOVEC,NOWRT, RD, 


Library Statistics 
weeeene= Symbols 


File Total Loaded 
.$255$DUA28: CSYSLIBIJLIB.L32;1 18619 22 
“$255$DUA28 : CEXCHNG. OBJ JEXCLIB.L32;1 1151 188 


COMMAND QUALIFIERS 


AX-11 Bliss-32 V 


EXCHNG. SRC EXERT] T1i 


4.0-742 
-B32;1 


74 
B32 


-EXTRN LIBSSIGNAL, LIBSSTOP 


Attributes 
EXE,NOSHR, LCL, REL, poeta bE gb atl ts 
EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
ecccccce Pages Processing 
Percent Mapped Time 
0 1000 00:01.9 
16 79 00:01.4 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:EXCRT11/0BJ=OBJ$:EXCRT11 MSRCS$:EXCRT11/UPDATE=(ENH$:EXCRT11) 


mash + 116 data bytes 


Used: 374 pages 


a he Complete 


Page 23 
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ON 
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VAX/VMS V4.0 F 4 
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